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6746 
5956 
0734 
1012 
7040 
4856 
6985 
A836 
JLa9 
JOSS 
6415 
4734 
4773 
48469 
4809 
8274 
3038 
3560 
S575 
B82 34 
0676 
3725 
3346 
6643 
6672 
JO38 
1244 
L232 
0696 
4094 
6542 
2781 
2447 
IO9S 
0890 
1319 
1327 
4069 
1450 
3020 
3219 
2268 
6847 
8252 
S322 
79000 
6014 
0815 
O814 
0844 
0845 
AP21 
0930 
3356 
619 
7167 


access 
alloc 
aretiss 
backur’ 
badblock. 
bawrite 
bcory 
bdwrite 
bflush 
binit 
omar 
bread 
breada 
hrelse 
bwrite 
canon 
chdir 
chmod 
chown 
Cinit 
clearses: 
clock 
close 
closef 
closei 
clrouf 
COFYUare 
corsout; 
coryused?: 
core 
Crass 
creat 
deverror 
fevetart 
disrlay; 
deadd? 
deem? 
CHF 
estabur 
exec 
exit 
exrand 
falloc 
flushtty 
fork. 
free 
fstat 
Fubyte? 
furbyte: 
fuiword? 
fuword3 
getolk 
sete; 
geterror 
sett 
getfs 


3472 
6181 
3480 
3413 
S452 
4136 
3420 
B165 
7067 
1284 
7134 
7276 
6922 
4899 
0895 
3018 
6364 
4982 
7344 
39P1 
7414 
7374 
3630 
BOSS 
8023 
8062 
8078 
8090 
BO4S6 
8070 
1393 
IPOD 
8879 
88463 
B974 
88350 
8986 
8967 
8870 
1401 
1410 
1550 
74ASS 
2528 
GLGG 
7182 
6326 
2956 
6339 
val gw pt 
POLS 
9042 
7318 
1826 
3493 
6566 


getsid 
sgetmdev 
getrid 
getswit 
getuid 
$row 
stime 
stty 
1alloc 
idle? 
ifree 
iget 
Limit 
incore 
incuees 
Llodone 
iomove 
lowait 
Leigt 
1ss14 
itrune 
Lurdsat 
Kill 
kKleclose 
kKloren 
kKlread 
kKlraint 
kKlsstty 
kKlwrite 
klsarit 
ldiv? 
Link. 
lecanon 
leclose 
leint 
leoren 


Llreoutrut 


lestart 
lewrite 
lrem? 
Lshift: 
main 
maknode 
mallac 


maralloc 


nerfree 
3% 
mfree 
mir 
mknmod 
mmresd 
mmwrite 
nmamei 
NeWrroc 
nice 
nodev 


2855 
4999 
LIZ 
6377 
2864 
W769 
7804 
6702 
6791 
2416 
63517 
8649 
8763 
8448 
8748 
8739 
8482 
8719 
8710 
B701 
wo? 
7723 
7862 
2433 
7882 
2340 
2369 
4204 
3667 
4043 
39h3 
4164 
0967 
2386 
J7 S41 
J71i1 
6221 
7738 
0740 
3205 
2123 
I420 
I451 
wAZS 
3440 
3389 
2483 
0889 
07235 
3354 
7879 
1940 
S361 
3460 
2156 


2134 


MOSySs 
motavail 
nseg 
nulildev 
nullsys 
orer 
orentl 
orenl 
owner 
Pranic 
Fassc 
reclose 
rcleader 
PCOPer 
Feouteut 
PCrint 
reread 
Forint 
restart 
FCcwrite 
PFOYSlo 
FLEE 
rlock 
erdev 
rerele 
erintt 
erintnm 
erockxmt 
erofil 
rPsSig 
rsigmal 
retrace 
Futce 
reutcher 
rdwr 
read 
readi 
readr 
retu?s 
rexit 
rhstart 
rkaddr 
rhintr 
rhread 
rkhstart 
rkhstratesy 
rhwrite 
savfr: 
Savisg 
shresk. 
schar 
sched 
seek. 
setsid 
setrri 
setrur 


setuid 
s4tty 
sidnal 
sleer 
smdate 
smount 
sP103 
srli: 
sr1l43 
seP1S3 
Ssr1ld3 
spl73 
ssi 
ssler 
stat 
statl 
stime 
stor 
stty 
subyte 
suLibyte 
sulwords 
sumount 


sures 


suser 
suword? 
SWarF 
swtcan 
Syric 
timeout 
times 
tLrar 
trari 
ttread 
ttrstrt 
ttstart 
ttwrite 
ttyineut 
ttysouteut 
ttystty 
woehar 
ufalloc 
urLi nk. 
uredate 
wait 
wWekeur 
woir 
Whlusnhtty 
write 
writei 
writer 
xalloc 
“eedec 
“free 
MSWarF 
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File Faramsh 
File sywstmeh 
File sed.-h 
File rroceh 
File wusereh 
File lowes 
File m40.s 
0676 _clearses? 
0696 corysedi 
0725 sav} 
0734 caretus 
0740 —retus 
0814 Ufulbyte: 
0815 fubuyute? 
O826 csuibute; 
O827 csubytes 
0844 futwords 
O845 fuword? 
0860  suiword? 
O861 csuword: 
0889 Usavtr: 
O80 idiselaus 
O99 cinmcure? 
0930 sete? 
O96? rut? 
1012 cwbackur? 
1244 Lcoryin: 
1252 coryout} 
1284 idle?’ 
1293 se103 
1297 srelii 
1302 wsP143 
1303 usRP1l33% 
1308 srlé3 
1313 csrl7; 
1419 dradd3 
1327 cdeeme? 
1393 cIdiv: 
1401 clrem? 
1410 Llshift? 
File ma@inec 
1550 main 
1650 estabhur 
1739 sured 
1771 nseg 
File slre.ec 
1826 newrrac 
1940 sched 
2066 sleer 
2113 wakeur 
2134 setrun 
2156 setrri 
2178 swtch 
2268 exPrend 
File erf.c 
23540 Printf 


2369 Print 

2386 Futcher 

2416 Fanic 

2433 erdev 

2447 deverror 
File malloc.c 

2ue28 malloc 

2uuo mfree 
File res.n 
File trar.c 

24693 trar 

2841 trari 

2855 mosys 

2864 mullsys 
File sysent.c 
File syslec 

3020 exec 

3205 rexit 

S219 exit 

3270 wait 

3322 fork 

3354 sbreak 
File sys4.c 

3413 setswit 

3420 stime 

3428 stime 

3439 setuid 

3452 setuid 

2460 setsia 

3472 getsid 

3480 setrid 

3486 sync 

3493 mice 

3910 unlink 

3938 chdir 

S200 CHmud 

39735 chown 

3595 smdate 

3614 ssig 

3630 kill 

3656 times 

3667 Frafil 
File clock.c 

3725 clock. 

3845 timeout 
File s14-c 

3949 signal 

3963 Fsidnal 

3991 issidg 

40146 stor 

40435 resid 

4094 core 

4136 drow 

4164 ptreace 

4204 FProcxmt 
File text.h 


File text.ec 


4368 


4398 


4433 
A490 


MGWAF 
xfree 

xelloc 
“xecedec 
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File conf.n 
File conf-ec 
File hio-ec 


47354 
4773 
4809 
ABSS 
4856 
48469 
4899 
AG21 
4982 
ADDO 
JO18 
JO38 
3OSS 
O96 
JL23 
ILS 
JLB2 
JL9S 
LLP 
men? 
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bread 
breadea 
bwrite 
hdwrite 
hawrite 
hrelse 
imcore 
detolk. 
ioqwait 
motavail 
iodone 
clribuf 
binmit 
devetart 
rhetert 
maralloc 
marefree 
SWar 
bflush 
PHYSio 
geterror 


File rk.ec 


3389 
7420 
7440 
2451 


me ato’d 
wd “ES VS 


2483 


rkstratesy 
rkaddr 
rkstart 
rhaintr 


File filsys.h 
File imo.h 
File inmode.h 
File sus2.c 


orer 
crest 
orenl 
close 
seek 

Link 

mknod 
ssler 
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6014 
6028 


fstat 
stat 


6045 stati 
6069 dur 
6086 smotumt 
6144 sumount 
6181 setmdev 
File rdwri.c 
6221 resadi 
6276 writei 
6326 max 
5339 min 
6364 l1omove 
File subr.ec 
6415 bomer 
6517 rasse 
6342 Crass 
6966 nodev 
6377 mulldev 
6985 heory 
File fio-c 
4619 setf 
6643 closef 
6672 closei 
6702 oreni 
6746 access 
6791 owner 
6811 suser 
6824 ufalloc 
6847 falloc 
File alloc.-c 
6922 iimit 
6936 alloc 
7000 free 
7040 badblock 
7067 ialloc 
7134 ifree 
714? catfs 
7201 update 
File iset.c 
7276 iset 
7544 Trout 
7374 Lupdat 
7414 itrune 
7455 maknode 
7477 wodir 
File nami.c 
7OL18 name1 
7679 scher 
7689 wichaer 
File Fire.c 
7723 PIFe 
7738 readr 
783035 writer 
7862 Plock. 
7882 Frrele 
File ttyeh 
File k1lec 


8023 
8055 
8062 
8066 
8070 
8078 
8090 

= 
8165 
8183 
B201 
8217 
8234 
8252 
8274 
8333 
8373 
8486 
8505 
8535 
8550 
8577 

is 
8648 
8649 
8682 
8701 
8710 
8719 
8739 
8748 
8763 

F 
8850 
8863 
8870 
8879 
8967 
8976 
8986 


kKlorer 
kKleloase 
kKlread 
Klwrite 
kKilsxaint 
kKlrint 


Kisatty 


ile tty.ec 


siby 
stty 
sattuy 
wfhlushtty 
cinit 
flushtty 
Cerri 
tLtygineut 
bLeyouteut 
ttrstrt 
ttstart 
ttread 
ttwrite 
ttystty 
tle Feec 
PCOrEeM 
Fooclase 
Foread 
PCwrite 
restart 
eerimt 
POP int 
Pcouteut 
rcleader 
ile dIlree 
lroren 
leclose 
lrewrite 
lecsnon 
lestart 
Leint 
leoutrut 


File mem.ec 


7016 
2042 


mmread 
mmwrite 


May 


er Te 
7993 
7992 
8617 
4584 
43576 
4586 
4374 
43575 
4379 
4577 
4373 
4583 
4581 
47 
O140 
8840 
7990 
79SS 
79SA 
7958 
7956 
1509 
1510 
BOP 
O14) 
POS? 
7976 
7970 
33/4 
0107 
BO 10 
7980 
S616 
8815 
TSOP 
WAL 
8013 
0473 
0479 
0477 
0475 
2658 
0481 
0476 
7P&P 
0318 
0482 
0466 
0492 
0470 
0487 
0471 
0486 
8842 
8820 


ARTY 
ASLEEF 
BUSY 
BUSY 
B_ASYNC 
B_HRUSY 


BR_NELWRI 


BR. DONE 
R_ERROR 
BR_MAF 
RLPHYS 
R_REATL 
B_URELOC 


R_WANTETL 


BLWRITE 
CANESTZ 
CAF 
CARR..ON 
CEOT 
CERASE 
CINTR 
CRILL 
CLOCKL 
CLOCK2 
CLOSED 


CMAPSTI2Z 


CQUIT 
CRIELAY 
CRMOD 
CTLREY 
DIRSIZ 
DL BASE 
NONE 
DIONE 
DONE 
DIRESET 
DRY 
SRUY 
E2BIG 
EACCES 
EAGAIN 
EBADF 
ERIT 
EBUSY 
ECHILE 
ECHO 
Et 
EEXIST 
EF AULT 
EFBIG 
EINTR 
EINVAL. 
EIO 
EISIIR 
EJECT 
EJLINE 


0100 
0100 
040 
04000 
0400 
010 
01006 
02 

04 
040 
020 
Ol 
0200 
0100 
0 

26 
O1 
020 
004 
oye 
0177 
‘fa’ | 
0177346 
0172540 


0175610 
0200 
0200 
0200 
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EMFILE 
EMLINK 
ENFILE 
ENODEYV 
ENOENT 
ENOEXEC 
ENOMEM 
ENOSF'C 
ENOTBLK 
ENOTINIR 
ENOTTY 
ENXIO 
EOF 
EFERM 
EFIFE 
EROFS 
ERROR 
ESFIFE 
ESRCH 
ETXTESY 
EVENF 
EXIIEYV 
EXFRI 


TALLOC 


2 TENABLE 


IENABLE 
TENABLE 
TENABLE 
TENABLE 
TEXEC 
TEXEC 
IF BLA 
TF ELK 
IFCHR 
IFCHR 
IFDIR 
IFIIR 
ILFMT 

TF MT 
ILARG 
ILARG 
ILOCK 
IMOUNT 
INI! 
IFCFERI 
TREAD 


24 
31 


0100000 
0100000 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
060000 
060000 
020000 
020000 
040000 
040000 
060000 
060000 
010000 
QO10000 
Ol 

010 
O10 
(-1) 
0400 


Defined Symbols Fase 


5496 
5627 
5494 
7987 
5626 
5693 
5628 
5695 
5484 
5680 
5683 
5630 
5497 
0165 
8008 
BOO? 
7968 
8812 
BB19 
8818 
8817 
8821 
0135 
0130 
0143 
0146 
8012 
0134 
0132 
01314 
BO11 
7974 
0133 
0105 
0139 
0144 
5364 
53465 
0113 
0145 
0104 
7972 
8843 
8607 
8624 
B620 
8623 
8622 
B421 
0155 
77S 
0157 
0156 
0164 
0159 
0154 


IREAD 
ISGIft 
ISGIin 
ISOQFEN 
ISUIL 
ISUIL 
ISVTX 
ISVTX 
ITEXT 
IUF TD 
IWANT 
IWRITE 
IWRITE 
KL 
KLATIUR 
KLEASE 
LCASE 
LFADOR 
LFHWAT 
LFLWAT 
LFFRI 
MAXCOL. 


MAXMEM | 


NBUF 
NCALL 
NCLIST 
NIL 11 
NEXEC 
NFITLE 
NINODE 
NKLI1 
NLOELAY 
NMOUNT 
NODEYV 
NOF ILE 
NEROC 
NRK 

NRK BLN 
NSIG 
NTEXT 
NULL. 
Onc 

OF EN 
FCAIMIF 
FCIHWAT 
FCIFPRI 
FP COHWAT 
FCOLWAT 
FCOFRI 


0200 
0177560 
0177560 
0176500 
04 
O177514 
100 


(64X32) 
1S 

20 

100 

0 

3 

100 

100 

1 
001400 


va 


C-1) 
15 
JO 

4 
4872 
20 
40 

0 
0100 
04 
O17 7550 
200 
30 
100 
JO 
40 
~9Q 
40964 
1 
~OO 


O177776 


FUSER 
FPWAIT 


RIRENE 
RIRENE 
READING 
RESET 
RHRCOM 
RHWCOM 
RKATOR 
RO 
ROOTING 
RFS 

RW 
SCHMAG 
SETI 
STDL 
SIGRUS 
SI GEMT 
SIGFFT 
SI GHUF 
SIGINS 
SIGINT 
SIGIOT 


2 SIGKIL 


SIGFIFE 
SIGQLT. 
SIGSEG 
SIGSYS 
SIGTRC 
SINCK 
SLOAL 
SLOCK 


2 SMAFSIZ 


SRUN 
SSIZE 
SSLEEF 
SSTART 
SSTOF 
SSWAF 
SSYS 
STRC 
Su 
SWAIT 
SWTEL 
SYS 
SZOME 


100 7973 
40 2615 
(O) 7984 
(-2) 7961 
(-9) 7931 
(-8) 7962 
(-7) 7952 
(-5) 7963 
(-3) O311 
(1) 0308 
040 0306 
04 0304 
O1 3706 
O1 2659 
2 2662 
0 0103 
070 7977 
060 84610 
0177400 JOPS 
O2 37S 
1 O316 
(2) 7985 
06 7967 
10 
0170011 
4 
10 
7 
8 
1 
4 
2 
& 
9 
13 
3 
11 
12 
20 
O1 
04 
100 
3 
20 
1 
O10 
& 
010 

— O02 
O20 | 
0177570 
2 
040 
0104400 


ved 


TBDELAY 
TBIT 
TIMEOUT 
TTHIWAT 
TTIFRI 
TTLOWAT 
TTOPRI 
TTYHOG 
UBMAP 
ULISA 
UISA 
UISH 
UMOTIE 
UMOTIE 
USER 
USIZE 
VTDELAY 
WAITING 
WCOM 


006000 
020 

O1 

70 

10 

39 

20 

256 
0170200 
0177640 
0177640 
0177600 
0170000 
0170000 
020 

14 
040000 
1 

On 
020000 
O4 

QO2 

02 
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Bea 
abee 
ahr 
abr 


Ch Wend 
cd. 


sCCess 


addr 


adev 
acy 
aftr 
air 
alloc 
eri 
ARTY 
aretu 
ere 


ASLEEF 
ater 


av 
aviback 


3avforw 


backr 
backur 


badblock. 
badtrar 


Hoe 
Bac® Le? 8 


nase 


Ren tut =: 
wL23 
7040 
wLSé 
7260 
JS41 


Lo Der aa ter 4 
ive Rive Ks Eis 


3041 


JB17 
7658 
BO24 
BO44 
8082 
8508 
8522 
4773 
4899 
2344 
2361 
7040 
6221 
6277 
6731 
6435 
56497 
6364 
a a 


0724 


3845 
7993 
8217 
8253 
8282 
BABS 
BS12 
latete) 


Ve we er 


8578 
8577 
4526 
3009 
4525 
4940 
9255 
3470 


4872 


4890 
1009 
2812 
6970 
1465 


A419 


6479 
6499 
7264 
v291 


3308 


263 
wiles 
7046 
JLS?7 
3268 
J3B9 


OTAN 


Ned ted “FH WE 


S552 


5746 | 


BO39 
8051 
8083 
Ba13 


4778 
4905 


2346 2 


7045 


222 


ve deme deve 


6284 


6448 
6956 
4370 


0734 
3871 
8224 
8218 
8257 
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bsawrite 
beory 


bdevsew 


bode 
bdwrite 


bfis 


hflusn 
nfreelis 


hbisgser 
binit 
hlkno 


Omar 
bno 


bel 
bread 


hraardnz 
brelse 


buf 


Source Code 


4845 
3238 
5976 
4617 
4785 
4906 
a2ie 
6722 
JIO6O 
4836 
6485 
1049 
1204 
Soe? 
4367 
4884 
4954 
J063 
YO71 
3373 
1614 
4754 
4781 
4921 
ILO 
6248 
6958 
6973 
7016 
B278 
3282 
6116 
6488 
7319 
76235 
A773 
3195 
4848 
6062 
6261. 
6503 
7324 
7602 
4520 
4526 
435357 
4736 
4837 
4870 
4983 
3019 
5097 
v1S7 
9260 
33587 
9423 
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4856 
6124 
7019 
4622 
4795 
4934 
Oi 1.4 
6926 
5076 
6311 
6500 
1060 
1238 
7230 
4878 
4991 
4955 
5068 
5235 
3386 
5055 
4758 
4799 
4938 


6298 
6967 
6981 
70235 
B319 
4754 
6258 
6927 
7386 


6256 
3298 
4869 
6118 
6308 
6932 
7332 
7624 
4523 
43335 
43538 
47735 
4839 
4872 
4985 
3021 
3101 
3160 
3263 
I370 
3442 


6310 
6585 
7220 
4656 
4819 
3060 


6146 


3077 
6443 
63501 
1094 


4879 
AP 32 
4960 
HOF 


4773 
4899 
4974 


6415 
6968 
7000 


8322 
4799 
6305 
5973 
74A2ZS 


47? 1 
JO28 
6129 
6481 
5977 
7436 
76356 
4524 
ASSS 
4367 
4810 
48357 
4902 
2000 
BOS? 
3124 
3183 
3337 
3392 
3453 


6931 
7636 
4763 
4843 
3076 
64BS 


6449 


1108 


4880 
4953 
3062 
3970 


4780 
4908 
19S 


7626 
6970 
7008 


6051 
6472 
7097 
7AS1 


AB22 
3073 
6172 
6487 
7il2 
7440 


4525 
45356 
4721 
4812 
48359 
4923 
97002 
2045 
9128 
292351 
3339 
5421 
6365 


buffers 
RUSY 
burite 


boaddr 


B_ASYNC 


bolback 


bublkno 


B_BUSY 


BR_OELWRI 


b_odeyv 


B_TIONE 


huerror 
R_ERROR 
blerror 
RK_ERROR 
buerror 
K_ERROR 
boflads 


b_fotw 


A720 
7992 
3239 
Je 4 
3049 
4529 
3134 
6052 
6437 
6935 
7174 
7387 
7636 
4584 
4887 
4324 
4970 
W070 
24S4 
4974 
2428 
6484 
4376 
JO10 
v202 
BaP? 
43586 
AQS&1 
2455 
4883 
1066 
ISPD 
43574 
4817 
wed4 
4332 
4373 
JSL1 
JI342 
3343 
3403 


4322 
4783 
4817 
4878 
4941 
4962 
7024 
3072 
J186 
s295 
3318 
3403 
4523 
4967 
4972 


IO67 
8617 
4809 
7O21 
3153 
O44 
wae © 
6124 
6473 
5974 


7ele 


7427 


47 9S 
ADPE2 
4356 
4971 
O80 
43531 
209 
6442 
6498 
4887 
3072 
wed 
Joe 
4817 
J257 
4AS27 


4908 


we2O7 S 


5429 
A759 
4847 


ISLS 


4817 


J467 
4739 
4790 
4847 
4879 
4942 
4966 
O26 
viii 
J2O00 
BePh 
Iai 
3467 
43559 
4968 
3062 


BMAF 
BRUFHYS 
BR_REAL 


EL RELOC 
biresid 
BLUWANTED 


bo weount 


ROUWRITE 
boxmem 
call 
calli 
callo 
callout 
celle 
CANBSIZ 
canon 


canonb 


CAF 
CARR.ON 


chlock. 
ec 


ccc 


CCF 


edevsw 


cfreelis 
chan 


8240 
0955 
0988 
8242 
2089 


0977 


2113 
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chdir 
chmod 


clearses 


eclist 


clock. 
CLOCK 
CLOCK2 
cloor 
close 
CLOSED 
closef 
closei 
clrbuf 
CMAPSIZ 
colr 


Cait 


cant 
COFSU 
COPYLM 
corgout 
COrYS @ sf 


COT 


coreaddr 


COTeEMSF 


“count 


orl 
cr. 
CHBISS 


Creutyure 


CQUIT 
CRIIELAY 
crest 
cret 
CRMOL 
csv 
CTLRIY 


2118 
2924 
22a 
2928 
1613 
7938 
7936 
8637 
0673 
3399 
7908 
84634 
0569 
1509 
1510 
7S4a2 
2918 
8609 
3230 
66356 
JO38 
O141 
8378 
8404 
8436 


- B4S4 


9102 
2115 
w142 
7106 
L245 
1243 
1243 
0495 
3380 
4076 
W1L9G 
0203 
2278 
4383 
2668 
3208 
7480 
7480 
6388 
8874 
0208 
16535 


. 3162 


7937 
7976 
2920 
1429 
7970 
1419 
3374 


3538 
3560 
3579 
8234 
8344 
8049 
88352 
0676 
41355 
7928 
B8443 
0570 
1601 
1603 
7667 
JB46 
B453 
3Ou4 
6672 
6982 
0203 
8400 
8423 
8442 
8458 
wlO? 
aie? 
JL43 
7110 
L253 
1244 
1252 
0696 
3392 
4094 
veld 
1548 
2282 
4497 
2762 
46585 
7483 
7484 
6542 
PO37 
1459 
1746 


8344 


3/781 
1430 
8047 
1420 
3462 


8342 


3134 


7930 


8402 
8435 
8448 
84735 
3114 
g141 


6376 


2292 


1982 
3241 


3196 


87035 


1571 
L133 


8412 


ctyre 
CHPPrL 
Cc_arg 
cece 
ccf 


c_cl 
cu fune 


cunext 
c_time 


dev 


devblk. 


deverror 


devloc 


devetart 


devtanh 


NIRSTZ 


adisreley 
DLBASE 
ari 
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8379 
8441 
B4648 


0222 


Awe Bae Awe 


0263 
3871 
7910 
8543 
7914 
7912 
0264 
3770 
3865 
8141 
0262 
3769 
3859 
2433 
2702 
4758 
4780 
4799 
4921 
4938 
5259 
5483 
6685 
6716 
6970 
7000 
7040 
7078 
7134 
7178 
7314 
8030 
8042 
8063 
8072 
8093 
88463 
9042 
5096 
2447 


IOPS. 


oL2o 
OFS 
451 
JO38 
0107 
3526 
7976 
7638 
0888 
8010 
6226 


Cross Reference Listings Fase 


8424 
B445 
8469 
2141 
3770 


8074 
8544 


3748 
3774 
3870 
B241 
3751 
37735 
3864 
2436 
2718 
4763 
4781 
4901 
4927 
4AO7S 
7300 
7486 
6689 
6722 
6973 
7004 
7048 


7O97 | 


7138 
7276 
7319 
8033 
BOSS 
8066 
8078 
8648 
2016 
9047 
7106 
3460 
JO9%8 
cs 
3447 
4B40 
7386 
0429 
7484 
7389 
7645 
O890 
8043 
6243 


B426 
8452 


8440 
8453 


2994 


ave Aone Be 


3866 


8349 


TONE 


dreadd 


arcmr 


DRESET 
DRY 
LISRIY 
Himr 


iF 
doiactf 


doiactive 


doiactl 
declose 


dowerrent 


doimaJor 


dominor 


dorert 


doread 
asatty 


daistrate 


doiteab 


duiwrite 
E2BIG 
EACCES 
EAGAIN 
ERALIF 
ERIT 
EBUSY 
ECHILE 
ECHO 
El 
edata 
EEXIST 
EFAULT 


* 


ae 


6250 
6281 
6305 
7980 
8714 
1318 
3295 
IB9S 
1326 
IPPO 
I3469 
J371 
B013 
OS21 
1355 
2953 
4357 
2457 
45a3 
3458 
4558 
4419 
6689 
4354 
2ASS 
A79S 
4927 
6192 
6710 
2436 
D429 
8039 
80463 
BO93 
9064 
4618 
6716 
4638 
4640 
4620 
4819 
4621 
JIO77 
4639 
0473 


0479 
O477 


0475 


2658 & 


0481 
0476 
79P&9 
0318 
0611 
0482 
0446 


6630 
2776 


3 6143 


B361 


3PHO 
6378 


EFRIG 
EINTK 
EINVAL 
EIO 


EISHIR 
EJECT 
EJLINE 
eloor 
EMFILE 
EMLINK 
end 
ENFILE 
ENOKEYV 
ENOENT 
ENOEXEC 
ENOMEM 
ENOSFC 
ENOTELK 
ENOTIUIR 
ENOTTY 
ENXIO 


EOF 
er 


EFERM 
EPIFE 
EROFS 
err 


error 
ERROR 
ese 
BESPIPE 


ESRCH 
estabur 


ETXTESY 
EVENF 
EXTEV 
exec 
execnt 


exit 


expand 


EXFRI 
falloc 


6551 
0492 
0470 
0487 
0471 
8854 
0486 
8842 
8820 
7992 
0489 
0496 
Oé611 
0488 
0484 
0468 
0474 
0478 
0493 
0480 
0485 
0490 
0472 
8654 
84612 
7418 
7435 
04467 
0497 
04935 
0835 
14658 
4219 
4248 
8618 
8750 
B89 1 
8908 
0494 
0469 
1629 
S152 
4440 
0491 
7973 
0483 
2923 
0210 
3196 
3209 
4278 
1628 
3383 
4473 
3018 
IO27 


7695 
6424 
2773 
3620 
4193 


9819 
8857 
8927 
7643 
6833 
IPLB 
0632 
6863 
6569 
7338 
3102 
1728 
45939 
6190 
3547 
8210 
6193 


8489 
7432 


6816 
7827 
6739 
0872 
1661 
4226 
4260 
B491 


889S 


3870 
3652 
1650 
3371 


3106 


3937 
3020 
3037 
3197 
3219 


2268 
3387 


3038 
6847 


8027 


7ASA 


14654 
L727 


4241 


8727 


8903 


3138 
A14G 


3039 
4080 
S1dge2 
44S? 


7737 


May 


fetch 


ff 
file 


filsys 
i orn | 
PrLdS 


flushtts 
Fmt 
fork, 
FORM 
found 
foundl 
found? 
FRFIFE 
FREAL 
free 
from 
fstat 
fubyte 
fuibyte 
fuiword 
fun 


fune 


fuword 
FWRITE 
F_icaunt 
f_flasg 


f_inode 


f_.offset 


26 15345 


1051 


1222 


Aros Ane dn 


4368 
IIO7 
6854 
JoOOL 


A+ "7 
+tOLO 


6364 
7S? 
84648 
8833 
8863 
8927 
B227 
2340 
2914 
8847 
B928 
3329 
6156 
1994 
1983 
JIL? 
7746 
aod 7 
w814 
7000 
6585 
2940 
0807 
6950 
0809 
POS4 
0813 
2734 


AOILA 


"dine dee W 


3845 
7318 
7374 
O8il 
2763 
B189 
JILS 
ISLS 
7746 
1878 
6655 
7739 
3509 
3869 


Sf £ fA Pt 
fd su 


Soil 
IB94 
6656 
7810 


sol2 


1173 


4382 
JIL 
B204 
7042 


ALVA £ 
TOL 0 


5373 
7603 
8652 
BBS0 
B866 
B936 
B252 
2341 
3322 
8859 
B9SO 
3333 
61460 
2021 
2031 
J7AS 
7748 
vlls 
JBRF 
7435 
6586 
6014 
0815 
7693 
0814 


0844 
2754 


3870 
7319 
7379 
0845 
S052 
B1i90 
vee 
JB29 


JILO 
66357 


3739 
6649 


734 
YBIS 
7747 
8208 
37351 


1180 


3807 


L184 


4849 


geterror 
setf 


sets 


getsid 
getmdev 
getrid 
setswit 
getuid 
sid 

GO 

Srow 
stime 
stty 
sword 


hbocom 
hibyte 


ete § 6 Base Seen tet Wor 


ialloc 
TALLOC 
icode 
idle 
TENABLE 


TEXEC 


IFBLK 


IFCHR 


IFDIR 
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BE? 
6858 
7774 
3040 
4789 
6928 
OP 246 
82464 
8673 
AB2L4 
3736 
6073 
67354 
7138 
2939 
6093 
2932 
2930 
2936 
3462 
3467 
TOPS 
0461 
2813 
2925 
2944 
0818 
JOSS 
0180 
8358S 
4728 
7966 
0147 
3JO81 
7391 
rope 8 
7067 
7463 
7728 
7/32 
i516 
1283 
DO92 
7981 
8659 
B814 
3041 
6764 
vO24 
6242 
9623 
6286 
7421 
3522 
9818 


Cross Reference Listing Pade 3 


IBFO 
685° 
7796 
3237 
4AQ21 
6981 
8292 
8688 
ADP2 
3850 
6619 
6961 
7167 
3472 
61351 
3480 
3413 
3452 
3464 


J1O09 


40356 
3420 
8165 
0830 
wvldOg9 
3456 
8593 
4844 


3797 
6232 
7462 
S427 
7459 


JPOL 
7772 
7798 
47358 
6123 
7016 
8258 
B320 
8714 
I323 
3866 
8206 
7004 
7383 


6181 


3465 
J138 


4136 


0848 


3476 


3800 
6285 
7731 


2220 
7138 
8052 
B692 


V631 
73963 
6100 
6314 


6100 
6684 


9622 
73599 


JIPO? 
7773 


4781 
6304 
7216 
B2G9 
B544 
B97 1 
3336 
6018 


7072 


7382 


TFMT 


ifree 
ook gen, oe 
in oe © 


he. 


iinit 
TLARG 


ILOCK 


IMOUNT 
incore 
Lnecure 
INI 
info 
imo 


inode 


inte 
intes 


iomove 
iowait 
ipe 


IPCFERI 
Leut 


S041 
Woe) 
6189 
6297 
8209 
7134 


41444 
UF ob LP 


7276 
1615 
TORS 
7425 
1617 
7224 
7316 
7888 
JOB2 
4780 
0894 
8844 
3142 
79070 
7100 
7143 
7315 
JOON 
6161 
6282 
7105 
7285 
S921 
0175 
3416 
4892 
B246 
0641 
SO18 
62460 
4764 
393° 
4184 
4190 
4195 
4213 
4227 
4242 
A264 
4282 
3914 
3194 
3549 
4128 
3736 
6137 
6802 
7490 
7741 


ISGIt 
ISOFEN 
issidg 


ISUID 
ISVTX 


ITEXT 


itrune 
IUFD 


iurdat 
LWANT 


IWRITE 


i_adar 


i_3atime 
i_count 


i_dev 


i_fla¢g 


3937 
4225 
4242 
3938 

227 


4264 


ZOZE 


WP FW? 


4209 
3936 
4211 
I629 
7789 
3176 
7987 
2073 
S991 
S171 
3568 
3790 
3105 
67358 
4112 
3530 
3942 
6467 
7462 
6050 
3683 
7890 
4109 
6651 
7776 
3613 
6192 
6302 
5447 
6470 
6710 
7423 
2614 
1883 
6100 
7317 
7787 
3519 
6053 
6422 
7514 
7426 
74A4AR 
E02 
1617 
3570 
3661 
6168 
64352 


4185 
4227 
4247 
4184 
4235 
4266 


AIQi 


EY he Ve? ob 


4184 
4212 
JOIS 
7850 
3627 
BO45 
2085 


JOL6 
4406 


4410 


VB25 
3570 
6285 
7382 
7609 
7ezS 
7288 


3630 
67353 
7777 
3672 
6234 
6439 
65451 
5679 
7082 
7430 


3105 
6681 
7350 
7825 
3663 
6162 
67354 
73959 
7431 
7AS9 


1619 
3583 
3926 
6232 
6467 


4218 
4232 
424? 
ALP 1 
A242 
4268 


ALlBs 
4189 
A2B2 
wB1S 
7851 
TOP4 
8046 


2821 


NO9S 
O28 


4471 


7393 
3583 
6318 
SSP6 
7731 
7337 
7869 


IOP? 
7604 
7836 
3PH69 
6252 
6440 
5455 
6680 
7330 
B213 


4472 
7302 
7362 


SPSS 
6250 
7104 
7383 
7433 
7334 


3105 
4410 
I742 
6285 
6758 


4220 
4240 
4254 
4220 
4249 
4273 


A194 
4192 


6651 


3826 


DORG 
2684 


7414 
5480 
6452 
7448 


7374 
7889 


J8L7 
746593 


S191 
6287 
6442 
5466 
5709 
7389 


3662 
7306 
7730 


6051 
6300 
7286 
7386 
7438 
7625 


3530 
4471 
6130 
6318 
7224 
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i_sgid 


i_lastr 
i_mode 


iL_mtime 
LonmLink. 


i_number 


i.sized 


i_sizel 


iuid 


a 

Jf 1 
k, 
kad 


kill 
KISAQ 
KISASG 
KT SOO 
RL 


KID 


KLAR 
KLBASE 
kiclose 
klar 
kloren 
kK low 

kl rut 
klresr 


Jead 
7303 
7382 
7462 
7869 
7890 
3177 
6771 
IO73S 
3041 
3546 
4406 
BOD 1 
6242 
6427 
6711 
7082 
7421 
Jaa? 
7789 
8209 
SOLS 
S529 
IP4i 
3664 
7105 
7360 
gG11 
6312 
sOo1L2 
H3i2 
7772 
S173 
5648 
7070 
1018 
7070 
O322 
1589 
9065 
Z2PAS 
0619 
0743 
0620 
O165 
2399 
8015 
8067 
8008 
BOO? 
4671. 
0526 
4671 
0327 
8018 
8017 


7287 
7316 
7391 
7609 
7872 


3582 
7466 
6255 
3171 
53566 
3407 
6100 
6286 
6444 
6764 
7329 
7425 
7732 
7836 


7608 
7352 
6051 
7286 
7385 
3670 
6315 
3O71 
6316 
7777S 
3174 
4769 
7999 
1193 
7103 
1459 
1599 


3630 
1447 
1368 
1449 
2393 
2406 
8030 
B072 
BOS9 
B04 1 
BOSS 
0558 
SOLS 
03561 
8083 
BOS1 


7288 
73al 
7396 
7731 
7888 


JO1LO 


6259 
3176 
3569 
JO66 
618° 
6297 
6651 
6774 
73S4 
7445 
7776 
7850 


JOO7 
7464 
6052 
7315 
7482 
w3EO4 
74A4AG 
JOP 
7447 
7835 
3581 
5798 
7101 
1239 
7104 
14460 
2716 


1448 
2397 
B057 
B08 1 


8041 
8043 


8084 


7292 
7359 
7448 
7868 
7889 


3669 


7318 
3522 
4110 
7818 
6233 
6314 
6682 
7O81 
7388 
7463 
PIP? 
7851 


JP17 


6162 
7SSS 
74 
6243 


6243 
7589 
7845 
JO09 
7465 


7105 
15460 
9032 


14640 
2378 


BOSS 
BOPS 


kKlread 
kKlress 
Klrimt 
kKilsatty 
kKltbuf 
kKltesr 
kKlwrite 
kKilxaimt 
kwir 
large 
lon 


lbolt 
LCASE 
ldiv 
Lirik. 
lks 


lohyte 


loor 


leli 


LEADER 


lenuf 
lecanon 


leclose 
LFHWAT 
Lleint 
LELWAT 
lreoren 
lrou 


Leroutrut 


LFFRI 


4671 
8016 
03557 
4671 
BO20 
8019 
4671 
0560 
0534 
6445 
6225 
6259 
0212 
4925 
7968 
B399 
1392 
3454 
7389 
2921 
0226 
1404 
0180 
3464 
8584 
1951 
2048 
2362 
3315 
4945 
we42 
7283 
7/P1 
B290 
8837 
8884 
BP24 
8931 
8941 
BOS2 
89460 
8982 
8812 
B972 
8825 
885? 
B909 
4AG7S 
8819 
0373 
8818 
4675 
0541 
B929 
8986 
8817 
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8062 


0558 
BO?O 
B086 
BOS2 
BO0466 
OS61 
OS35 
6462 
6239 


8078 


3797 
8450 
8047 


1393 
6051 
7626 
29OP 
14601 
1407 
3443 
3445 
BS92 
1957 
2195 
3245 
4020 
4937 
7O735 
7290 
7812 
B30 
8853 
8910 
B925 
B93 
8942 
8954 
89462 
8988 
8853 


8972 
B865 


8843 
8988 
0374 
B981 
8850 
0574 
8951 


B976 


898° 


lesr 
lestart 
lewrite 
lrem 


lshift 
main 
maknode 


malloc 


Ts 


marealloc 


marfree 
marlock. 


marteab 
max 

MAXCOL 
MAXMEM 
maxmem 
MAXMEM 
Mame m 
mec 


mfree 


mir 


mkriod 
mic 


mnread 
nmmwrite 
mode 


mount 


mri 
MTC 


moaddr 


mbt & 


mdev 


m.inodre 
mSsize 


8824 
8967 
4G7S 
1400 
6052 
1409 
6294 
O611 
4105 
1896 
3234 


2515 2 


2559 
JLS6 
VO2RS 
9155 
JLlé9? 
8117 
6326 
8821 
O135 
0224 


1582 


1582 
8834 
8952 
1568 


2aGs 2 


4383 
1582 
6339 
2PLS6 
8836 
8931 
4682 
4682 
U7 S31 
5746 
0272 
6148 
7169 
7281 
O216 
1849 
1373 


2518 25 
2564 25 


25/76 2 


02735 
6125 
6933 
7212 
0274 
6934 
0276 


2al7 2 


JB12 


2 27463 


6103 
6934 
7210 


1843 


2a4l 
27k 
238 1 
6124 
6171 
7e2il 


6155 
7296 
7229S 
2538 


mamel 


nblkdev 


NRBUF 
NCALL 
nehrdev 
NCLIST 
NOLit 
newrroc 
newsize 


NEXEC 
NFILE 
nice 
NINODE 


NKL 11 


NLIELAY 
NMOUNT 


NOTIEY 
nodev 


NOTEYV 
nodeyv 
NOTIEV 
nofault 


NOF ILE 


MOoOsSsrece 
Mmosys 


motaveil 


NF ROC 


2542 
2568 
2578 
3034 
3770 
3938 
5796 
4631 
6720 
0130 
0143 
4647 
0146 
BO12 
1627 
2268 
2282 
0134 
O1lS2 
294SG 
O1S1 
7223 
8011 
8043 
7974 
OL33 
7172 
O1L05 
4659 
4683 
4675 
4680 
4686 
4490 
7238 
65466 
6928 
0757 
0871 
0909 
1225 
1267 
14644 
0139 
6624 
5966 
2855 
2951 
2962 
2966 
2970 
2974 
4948 
0144 
1991 
2206 


2I64 
2369 
2383 
3515 
3/786 
6033 
73518 
4927 


4535 
0265 
6714 
8146 
8015 
1826 


22735 2 


3037 
wuld 
3493 
3679 
72835 
8015 


0277 
7210 
3040 
4640 
4&64 
4677 
4681 
4687 
46971 
6123 


7230 
07466 
0872 
OF10 
1228 


1273 


0438 
6828 
5969 
HPS 
2OS2 
2963 
2967 
ao? iL 
2977S 
4940 
0376 
2006 
3246 


Mey 246 15345 


mPS 
NRK 
NRK ELIA 
mses 


NSTG 


nmoweP 
NTEXT 
nulideyv 
mulilsys 
ODDF 
ok. 

OM 


OF Gr 
OFEN 
oreriit 
OF GIL 
out 1 
owner 
rac 
Pranic 


Famiestr 


rarteab 
FP B5se 


ate Bs 


roid 


FCADDIR 


reclose 
FC THWAT 
FOUN 


FCIPRI 


reclesader 


FCOHWAT 


FCOLWAT 


rFCOPeN 


3327 
4023 
2693 
364 
360 
1657 
0113 
3619 


(0232 


O145 
4658 
2864 
7972 
4256 
6225 
6280 
F018 
P0356 
2917 
8843 
asf 
3832 


$6119 


S564 
iw Pa 
1405 
2719 
4381 


493& 
23528 
7947 
5394 
9038 
2693 
27357 
3791 
Bé641 
84658 
8489 
B724 
8731 
8754 
8607 
B691 
B722 
8750 
4673 
B624 
0530 
8488 
8734 
8620 
86444 
B623 
8622 
4673 
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3639 
4A1L72 
37235 


3402 
1660 
0447 
39468 
1583 
4314 
4682 


27l2 


4259 
6240 
6295 
9025 
9067 
W760 
8853 
3793 
6702 
6136 
3379 


1853 
$236 
44351 


E&PSO 


2419 
8424 
6517 


2734 
2766 


8645 
8673 
B693 
B726 
8734 
8735 
8659 
B692 
8727 


864469 
8731 
0364 
8493 


8660 
8678 
8754 
B74S 
8648 


3810 


304 


2416 
4377 
4928 
FZOO 


wt wr of 


8695 


2736 
3723 


8657 
B688 
B721 
8730 
B744 


Bé74 
8715 
8732 


B673 
B731 


FCOFRRI 
FCO 
rcout 


rcoutreut 


Ferbut 
PCrCSr 
FOrPAmt 
roerbuf 
rForesr 


rForead 
rorint 
restart 
restate 


Frecwrite 
FNHYSsilo 
FINOD 


Fire 

FIPSIZ 
re lock. 
PPIPE 
erdeyv 


rerele 


Pr 
FPRIBIO 


erintt 


erintn 
FrOoCc 


FP PTOCHNt 
Profil 
PS 


8621 
0531 
Bé44 
8754 
8706 
B430 
Bh27 
O564 
8628 
8627 
B492 
46735 
0363 
8710 
B642 
8675 
B726 
4673 
Jeu? 
O155 
7239 
2954 
7/15 
7768 
O157 
2433 
7120 
3518 
7227 
77PF 
7849 
2066 
O156 
DLP? 
1576 


ton 
Ah ud 


2454 
6862 
2355 
0358 
1591 
1830 
1960 
2119 
2185 
Bea 
3273 
3632 
5810 
4018 
4026 
29356 
0164 
0691 
0726 
0748 


Cross Reference Listing Fase 5 


B73 
0567 
8714 
8755 
8748 
8715 


mas 2 “F 


OOOw 
0567 
8739 
8659 
8722 
84662 
0564 
8742 
B653 
8639 
8728 
B701 
3479 
6963 


7723 
78335 
7815 
7790 
2453 


7178 


3556 
73358 
7817 
7882 
2072 
4943 
J316 
1577 
REAL 
2716 
7310 
2369 
0376 
1592 
1846 
1791 
2136 
2193 
3246 
3277 
5639 
S951 
4023 


4204 
ES la a8 


3667 
0668 
0697 
0731 
0756 


8743 
8756 
876°? 


m7 -+ A 
Of Lt 


8739 


B&74 
8727 


B719 
8758 
B657 
B721 


3486 
7007 


7846 
7862 
7838 
6988 


3826 
7363 
7826 


2078 
4955 


1578 


woes 


2717 


2374 
i589? 
1593 
1942 
2006 
2180 
2206 
5248 
3324 
3644 
3953 
A1L&6 


0677 
0700 
0735 
0773 


8744 


7074 


7870 
7048 


6131 
7786 
7837 


2091 
49906 


1579 
2AZ4 


2718 


1590 
1829 
1943 
2115 
2182 
2207 
3250 
35327 
3/28 
3994 
4172 


0679 
0720 
0741 
0777 


PS 


FS 


PSid 


PSsisgnmael 


FSLEF 
FSWF 


rtrace 
FUSER 


Futbe 


rutchar 
FWAIT 


Pword 
re _addr 


P.Cru 


re ofles 


rP_mice 
PolPaid 


PuPPid 


0783 
0852 
0877 
O935 
0973 
1285 
i298 
1309 
2070 
2693 
2776 
3798 
S852 
JOOS 
2074 
3827 
2/93 
5963 
O1LS9 
0154 
wa Q4 
2938 
0160 
3974 
O926 
8358 
8756 
egal 
2401 
01358 
0840 
0371 
1904 
2O4AS 
2290 
3242 
A149? 
4467 
0366 
3814 
0361 
1961 
2046 
224i 
3289 
3998 
4379 
4479 
0367 
0369 


3247 3 


3285 
34B2 
4173S 
0370 
3252 


0790 
O86? 
0932 
0964 
O999 
1288 
1304 
1314 


2/17 
3759 


4885 
82462 


2105 


3649 


3 1968 


3817 


8323 
8478 


23795 
2403 


0868 
1743 
2042 
2999 


3134 
3376 
4383 


37935 
3816 
1862 
2007 
2208 
3170 
3303 
4169 
4456 
3317 
2162 
1867 
3278 
3335 
A024 
4209 
3247 
3278 


er istat 


re otexte 


ee time 


em ottyr 
a i 
er owehen 


ux 


ac 
al 


RO 
ro 
RO 


ro 
RO 
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rablkno 
radblock. 


rahe 
RAW | 


ror 
RCOM 
raffle 
RINRENSG 


rawr 
read 
resdai 


READING 
TE St Ch Fe 
resloc 


RE SE T 
retry 
retiu 


resit 
rt 


RHRCOM 
rhstart 
RHWCOM 
RN ATITUR 
rhacdedr 
RNADTUR 
rkhaddr 
RKATIUR 
rhoe 
rhes 
rkde 
rkds 
rkher 
rkhintr 
rkia 


B206 
2606 
24693 
3297 
3725 
7744 
2607 
2608 
2609 
2610 
2611 
4059 
2612 
4058 
4773 
0235 
64356 
4775 
4793 
7971. 
83864 
2316 
JOP4 


3196 S 


BO1A 
B49 
3/15 
2915 
3090 
6221 
B4é11 
3748 
Q237 
1148 
DSO 
1840 
0724 
2294 
2913 
6646 
66355 
JL) 
JL2dg 
3120 
IOS 
3420 
3447 
3447 
JAS? 


ISB I 


a 0 


3382 
Jo? 7 
3378 
0576 
0544 


3433 


8414 


rkread 
rkhstart 


rkstrate 


rkteab 


rootdev 


rootdir 
ROOTINO 
RFS 


rrkbuf 
rsr 
ruriis 


runout 


PHT Pur 
RW 
rw 


savfr 
S3vu 


sbresk. 
scnar 
sched 
SCHMAG 
seek, 
SOF 


SETI 

setsid 
SetFrI 
setres 


setrumn 


setuid 
ssatty 
SITL 
sig 


SIGBUS 
SIGEMT 
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4684 
Y415 
4658 
4638 
7412 
D446 
D463 
7380 
4684 
O315 
0228 
5926 
0206 
0106 
2413 
4262 
I387 
2315 
0218 
2081 
3822 
O219 
2144 
4389 
0220 
2146 
O317 
1711 
ar Pea 
56689 
0888 
0724 
2189 
4476 
2929 
13552 
14637 
3707 
2931 
1450 
1714 
3118 
2650 
2958 
2156 
L089 
L196 
2123 
5976 
2935 


S171 


0385 | 


39AP 
3972 


O123 2 
O120 2 


Cross Reference Listings Fase 6&6 


J476 
7440 
JI3B9 
I3B6 
J413 
B4SS 


7469 


7483 
14668 
1616 
6927 
1416 
1616 
2679 


W479 


1954 
2OB2 


L967 


2145 


0779 
L196 
L484 


ar 
6702 
0889 


O725 | 


2281 
4477 
3354 
4097 
1940 
3814 
W861 
1454 
3023 
S1S1 
2/734 
3440 
2823 
1099 


2134 . 


4188 


5472 
S486 
5410 
5444 


34358 


4695 
7728 
7533 
7297 
4060 


vy 2080 


3821 


2143 
4388 


2142 


1707 


6685 
6722 


1L9OS 
2844 


7679 


1498 
3100 


3828 
1120 


3310 


3768 


SIGFFT 
SIGHUF 
SIGINS 


SIGINT 
SIGIOT 
SIGKIL 
sidnal 
SIGFIFE 
SIGQIT 
SIGSEG 
SIGSYS 
SIGTRC 
SINCR 
sleer 


SLOAD 


SLOCK 


sloor 
SMAFSIZ 
smourmt 
S mF 


or 


sF10 


srli 
sr ]4 


sre 1S 


grid 


grp]7 


O121 
0114 
0117 
4067 
O115 
0119 
O122 
3949 
0126 
01164 
0124 
0125 
0118 
0138 
19535 
3314 
49355 
veils 
6963 
7799 
8287 
B73 
O3S91 
L992 
2143 
0393 
4385 
3317 
1953 
0142 
2933 
6090 
6111 
6124 


6128 


2693 
4137 
1292 
2079 
AQS6 
wells 
IOPS 
8676 
9037 
L292 
1292 
8757 


1292 
8222 


deve dove doe 


L292 
2075 
4APS2 
v2O1 
woL4 
L292 


9028 


2793 
2734 


8345 
2744 
3619 
8345 
7828 
4066 
2B15 
2781 
2740 
4143 
1968 
4182 
4990 
SaP?7 
7007 
7838 
8563 
8989 
1592 
2007 
2208 
1992 
4466 


2004 
0204 
6086 
6102 
6121 
6125 


2811 
4141 
1293 
2092 
ADS9 
w245 
8228 
84697 
9070 
1297 
1302 
BPP 1 
1303 
8263 
1308 
2088 
4988 
wels 


L313 
9061 


2797 


2736 


4069 
3971 


8345 
4073 
4074 
40353 


2066 
4190 
5167 
5316 
7074 
7870 
8460 


1862 
2023 
4385 
2007 
4448 


2014 


6108 
6122 
6126 


3725 
4143 
1976 
4ADP44 
4AOP 1 
320 
8289 
B87 59 


5803 
8672 


3766 
8283 
1958 
4886 
3007 
Jes4 


3854 


4071 


4033 


4068 


3038 
4943 
we O4 
IP94 
7289 


8225 


Bn ae ved 


B493 


1941 
2046 


4379 


W312 


6109 
6123 
6127 


4136 


2022 
4947 
J170 
I416 
B346S 


BIPS 


8486 


3408 
B559 
1990 
4940 
3164 
welP4 


3783 


SRUN 


$sic 
SSIZE 
SSLEEF 
ssler 
ssr 


SSRO 


oSR2 
SSTART 
SSTOF 


SSWAF 


SSYS 
start 


stat 
statl 
stime 
Stor 
str 
strat 
STRC 


stty 
subwte 
suibyte 
Suiword 
sumount 
sured 
SuUSer 


Ssuword 


SW 
SWAIT 
SWOF 
swardeyv 


SW3rer 
SWSr sr 


swhuf 


swrelo 
swten 


0384 
1961 
2960 
0137 
0382 
2947 
0759 
1021 
1150 
0613 
0765 
0740 
7988 
0387 
4026 
0394 
2286 
O392 
OS21 
0614 
2930 
6021 
2937 
3999 
2433 
Ja? 
O39S 
3998 
2943 
0807 
0809 
0813 
2934 
1724 
S431 
Soe 
6800 
O8ii 
3159 
40358 
6059 
01466 
0383 
2034 
J1L196 
O229 
wa? 
2035 
O204 
3283 
4721 
waQ®? 
O231 
0770 
2178 
4480 


3156 
40357 
60355 
8177 


39735 
A4S7 


4696 


3234 
4457 
5208 


a 


2093 
4027 
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SWTED 
Syme 
SYS 
susent 


SZOMmE 
s flock 


$s fmoad 
s.free 
$s fsize 


Ss Llock. 


S$ imode 
G 15s1ize 


Ss mfree 


So nminade 


S$ romly 
$time 


tQ0 
tol 
tO2 
tO3 
£04 
LOS 
t0é 
£07 
t10 
tit 
ti2 
t13 
t14 
tis 
£16 
ti? 
TRDELAY 
TRIT 


Lim 
time 


O396 
4187 
2748 
2661 
2667 
2/730 


eehMr ery #£ 


WV2OOO 
Ja7O 
4963 
7006 
7023 
a kw 
7084 
BIO? 
7019 
JIO4 
hw Was | 
7074 
7139 
IIOP? 
TIOS 
IO 
69735 
7014 
7175 
3UIOS 
7108 
7143 
sae S 
7214 
aus 4 
TEAL? 
1056 
1054 
10356 
1056 
1056 
1056 
1056 
1056 
1057 
1057 
10357 
1057 
1057 
1057 
1037 
1057 
7973 
2615 
4304 
3845 
0213 
3433 


~~ 3806 


3989 


3302 


3486 
2739 
2670 
2761 
B43 
6127 
6972 
7007 
7214 
6983 
7144 
5967 
79025 
7947 
6126 
7094 
7213 
7077 
7047 
6965 
6987 
7018 
7179 
79076 
7113 
7176 
6128 
7383 
6939 


LOS9 
L079 
1102 
1103 
1164 
1105 
1104 
1093 
19062 
1110 
1iil 
1ii2 
1113 
1114 
1107 


1140 


4060 
5851 
3423 
3801 
3784 
6050 


3303 


296 
2910 
3e2OO 
5936 
4978 
7OLS 


7005 
7213 
6976 


4937 
7116 


7107 
7O96 
6967 
7010 
7020 


7077 
7118 
7180 
6754 


4&9 40 


1085 


3309 


2704 


59462 
5979 
7022 
7026 
7217 
7OL2 


7073 
PLL? 
7143 
69714 
7OL1 
7O2S 


7107 
7141 


6938 


7218 


1101 


timeout 
TIMEOUT 
timeout 
TIMEOUT 


tines 
tmtab 
to 
tout 


trar 


traril 
trf 
TTHIWAT 
TTIFRI 
TTLOWAT 
TTOPRI 
ttrouf 
ttresr 
ttread 
ttrstrt 
ttstart 


tttouf 
tttesr 
ttwrite 
tty 


TTYHOG 


ttyineut 
ttyouteu 


ttystty 
t addr 
tucane 


tuchar 


t_col 
tidelct 


Oe i 


tfleds 


7218 
7392 
3845 
7984 
B524 


B3525 


AOR te, 


4727 
6385 
O214 
3989 
oT P4 
OS12 
O516 
03547 
O732 
2693S 
2f7/i 
2804 
796 


Cross Reference Listing Fase 7 


7eLe 7224 7357 


7SPS 


B491 85 


B4o2 


3805 


SPP 2 


OS15 
0538 


0355 


wo 0762 


8036 
B218 
8275 
B374 
8509 
8553 


8403 


8513 
8543 


tokill 


Louowte 


t .TBWR 


tosreeds 


toostate 


weher 


UnSA 
ufalloc 
uid 


UISA 


UTSAO 


UISAL 
UISH 


wiond 


unlink 


8390 
8452 
8594 
7937 
B593 
7930 
8225 
8478 
7928 
8292 
8358 
7941 
7938 
9224 
8518 
8562 
0646 
1440 
1067 
1067 
1067 
1067 
1067 
1067 
1067 
1067 
6045 
6060 
Oil 
5177 
3026 
3541 
57984 
5928 
6033 
6186 
0308 
6076 
3441 
B44é 
0306 
1750 
9029 
9062 
0678 
O701 
0699 
0304 
1760 
9036 
O481 
0705 
0704 
2659 
3824 
2922 


8412 
8468 


8304 


BO7S 
B2é61 
8540 
8264 
B355 


BS91 
BO4S 
B4ol 
B541 


0662 


urdate 
uUrdlock. 


user 
USER 


USTZE 


Ward 


Wars 


Uubese 


u_ecdir 


wu_count 


6150 
7207 


2/21 


274A? 


0646 
1590 
S129 
4116 
44&7 
2812 
3208 
3305 
3416 
3433 
3464 
3497 
40355 
4060 
4191 
3738 
3866 
6830 
B206 
2766 
3683 
3099 


z149 
wk bf 


3297 
3581 
35649 
3671 
407? 
4186 
3743 
D773 
IB7S 
3966 
6096 
8187 
8590 
3139 
4463 
6374 
6523 
6357 


1419 
S055 
3141 
A461 
9322 
6230 
6296 


7201 
7209 


2/33 


avo 


0662 
1628 
313i 
411? 
4473 
3155 
S261 
3335 
3423 
3443 
3475 
3623 
4037 
4061 
4258 
IBS1 
JI986 
7736 


2770 
3095 
3101 


3149 


3364 
3582 
3661 
3672 
41648 
4439 
3744 
ws 74 
1876 
IPG? 
6113 
8188 


3525 
269 
6376 
6530 
7488 


1883 
7331 
3526 
V2735 
J744 
6241 
6319 
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6383 63527 6531 6546 u_ofile 0438 1876 3227 S835 8580 8582 8583 8584 

6994 7486 7589 7600 37853 6078 6626 6829 8585 8586 8590 8591 

7639 7811 7818 7846 6856 7740 8592 8593 B594 

7847 9048 9049 u_redir 0435 5935 5936 7459 VTTELAY 7977 8463 
wicstime O451 3291 3292 3293 7489 7490 7606 wait 2919 3270 

3336 3337 ULF TOCr 0424 1593 1743 17352 WAITING 84610 8637 8658 8721 
wicutime 0450 3294 3295 3276 1859 1891 1917 2071 wakewur 2082 2113 2145 3197 

3332? 3340 2273 2793 2818 2823 3248 3249 3434 3805 
l_dbuf 0429 7484 73570 7572 3134 3170 3174 3224 3808 3822 4025 4195 

7976 7645 7646 3240 3278 3314 3326 4213 4389 4877 4880 
u_dernt 0434 3319 3525 3527 3376 3388 3446 3482 53031 5188 S217 3319 

7482 7483 7488 7636 3502 3625 3626 3638 6652 6653 6979 7023 

7640 7646 7664 3794 3828 3996 4021 7117 7778 7852 7891 
WoL Tr 0430 2770 4100 3927 4048 4119 4148 4149 8075 8260 8261 8357 

56096 7682 7693 4169 4175 4209 4273 8734 8744 8982 
u_dsize 0442 3149 3152 3369 4401 4402 4448 4445 WCOM 2093 3114 

3371 3373 4146 S291 4478 4479 3312 3317 wodir 3940 7467 7477 
uerror 0419 1728 2752 2773 7828 8031 8032 wfhlushtt 8058 8217 83589 

2774 27735 2777 2857 Woe roft 0433 3127 3670 36471 WLO Sols 

3064 3092 3102 3106 3672 3673 3790 3791 WO 0316 1762 

3317 3330 3547 3620 UOaSBYV 0445 2106 2846 WOFEN 7985 

3632 4052 4099 4103 ursid 0423 3465 3467 3475 write 2916 S720 

4127 A177 4193 5326 WoTS3av 0415 1889 2189 2281 writel 3528 4118 4124 3755 

3343 5344 3740 5788 4476 | 6276 7489 7848 

9819 S822 3833 3870 Uoruid 0422 3444 3447 3455 writer 3/49 7805 

2718 S930 3933 35937 4iil 4 2340 2346 

3960 3964 6094 6114 wisesflae 0418 3089 3091 4117 x2 2340 

6117 6135 6152 6157 4123 S745 6372 63521 x3 | 2349 

6163 6190 6193 6262 6548 7487 7587 x 2340 

46307 6319 6378 6424 1}... SEF 0444 3151 3152 3365 Mo 2340 

6524 6551 6569 6630 3371 4146 3276 35306 KG 2340 

6727 673535 6759 6778 u_sismal 0447 2734 3183 3225 x7 2340 

6816 6833 68463 6929 3623 3624 4003 4051 «8 2340 

6989 7121 7311 7538 4054 , xo 2340 

7348 7560 7571 7580 UO SSav 0446 1905 2242 2284 xa 2340 

7612 7695 7827 8027 4477 xalloc 3130 4433 

S172 8210 8654 8751 li$size 0443 3150 31352 3370 4 m) 2340 

8854 9038 9057 3371 3376 3378 3389 xOor 2318 2399 
“ut Ssav 0416 3189 4255 4141 4143 41446 4150 xc 2340 
uasid 0421 3177 3466 3476 4156 3292 xecedec 4378 4403 4490 

5771 7466 ui_stime 0449 3293 3338 3793 xfree 3128 3233 4398 
Wino 0432 33519 3527 7482 iWi_tsize 0441 3148 3152 33646 XSWar 1906 2024 2285 43648 

7640 7664 3371 4146 S275 4473 : 
wointflse 0454 2772 2845 2848 uauid 0420 3172 3173 3445 XTAKRS 7967 8047 8390 
uname 0433 7483 7646 34356 3567 3646 4111 xWcaddr 1753 2036 4309 4497 
u_offset 0427 3087 3088 3140 6763 6769 6798 6814 xccount 1881 1980 2033 2039 

S924 4113 4114 4462 7463 4313 4453 4475 4483 

3309 S731 S752 6239 WU OwWLsEe 0436 1665 1678 14694 44935 4496 

6240 6244 6294 6295 1699 1715 1716 1717 xCcouUmt 1880 4312 4404 4447 

5309 6313 6315 6316 1744 4432 

6382 63528 6529 6555 “ui uwisd 0437 1666 1719 1720 x daddr 2034 4308 4409 4457 

69356 73585 7586 7608 1721 17354 44S? 

7622 7626 7636 7638 Woiutine 0448 3296 3341 3660 xXuiLPtr 4311 4405 4407 4442 

7642 7795 7796 7798 3789 4446 44354 

7844 7845 7846 9024 Vv 8090 8091 8094 8167 xXW81zZe 1981 2034 2037 4310 


P9025 9051 9055 9056 8170 8201 8202 8213 4408 44356 4497 
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Rerroduced 
Coryrishty 


Sheet Ol 


Je 


under licence from 
1976 


Lions» 
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0100 /*kX fundamental constants: do mot change xX/ 

0101 

0102 

0103 #define USIZE 16 /*& size of user block (X64) */ 

0104 #define NULL O 

0105 tdefine NODEYV ¢(-1) 

0106 #define ROOTINO 1 /xk 1 mumber of all roots X*/ 

OL07 #define DIRSIZ 14 /k max characters rer directory */ 
0108 

0109 

0110 /K sidnals: do not change x/ 

0111 

0112 

0113 #define NSIG 29 

0114 #define SIGHUF 1 /*% hansur X*/ 

0115 #define SIGINT es /* interrurt (Crubout) x/ 
0116 #define SIGQIT 3 7% quit (FS) X/ 

0117 #define SIGINS 4 /* illesal instruction k/ 
0118 #define SIGTRC a /*% trace or breakroint xK/ 
0119 tdefine SIGIOT é /* iat */ 

0120 define SIGEMT 7 /* emt x/ 

0121 #define SIGFFT 8 /* floating excertion x/ 
0122 #define SIGKIL 9 4&%& &ill *¥/ 

0123 #define SIGBUS 190 /* bus error X/ 

0124 #define SIGSEG 11 /* segmentation violation x/ 
0125 #define SIGSYS 12 7% sus */ 

0126 #define SIGFIFE 13 /*% end of rire xK/ 

0127 

0128 /X tunable variables x/ 

0129 

0130 #tdefine NBUF 15 /* size of buffer cache x/ 

0131 #define NINODE 100 /X mumber of in core inmodes X/ 

0132 #define NFILE 100 /x mumber of in core file structures X/ 
0133 #define NMOUNT 5 /k number of mountable file systems X/ 
0134 #defime NEXEC 3 /* rmumber of simultaneous exec’s X/ 
0135 #defime MAXMEM (64K32) /k max core rer Process? 

0136 first mumber is kw X/ 

0137 tdefine SSIZE 20 /* initial stack size (*64 nhyutes) X/ 
0138 #define SINCK 20 /k increment of stack (x64 bytes) XK/ 
0139 #tdefine NOFILE 15 /xX max open files per process X/ 
0140 #define CANESIZ 2564 /X max size of tyrewriter line x*/ 
0141 #define CMAFSIZ 100 /* size of core allocation area X/ 
0142 #¢define SMAFSIZ 100 /X% size of swar allocation area x/ 
0143 #defime NCALL 20 /* max simultaneous time callouts x/ 
0144 #define NFROC SO /k max number of rrocesses X/ 

0145 tdefine NTEXT 40 /* max number of Fure texts x/ 

0146 #define NCLIST 100 /X max total clist size X/ 

0147 #defime HZ 60 /*& Ticks/second of the clock x/ 

0148 

0149 
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/* rriorities? do not alter much xX/ 


#define FSWF 
#define FINOL 
#define FRIBIO 
#define FRFIFE 1 
#define FWAIT 40 
#define FSLEF 90 
#define FUSER 
/& Certain Frocessor resisters X/ 
tdefine FS 0177776 

#define KL 0177560 

#define SW 0177570 


Tp ee | xK/ 


7* structures to access intesers ¢ X/ 


/* single integer */ 


struct imt intess +9 


/X in bytes X/ 


struct ¢ char lohytes char hibste; +3 


/k 38 3 seauence X/ 


struct ¢ int rod3 +3 


[ko wwe n ener K/ 


Rerroduced under licence from the Western Electric Comramnuy NY 
Coryrisghts J. Lionsy 1976 


Sheet O1 


May 24 


0200 
0201 
O202 
0203 
0204 
0208 
O206 
0207 
0208 
0209 
0219 
O211 
O212 
O213 
0214 
O21 
O216 
0217 
O218 
0219 
O220 
O221 

yy) 


Q222 
0223 
0224 
0225 
02264 
0227 
0228 
0229 
0230 
02314 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
O243 
0244 
0245 
02464 
0247 
0248 
0249 


123 


28 1976 
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/*k various global variables */ 


/* buffer for erase and kill *X/ 


char canonbCCANBSIZ 43 
int coremarlLCMAFSIZ 15 /& srace for core allocation x/ 
imt swarmarClSMAPSIZI1$ /*k space for swar allocstion */ 
ant Xrootairs 7* Pointer to inode of root directory x/ 
imt crutbyres “kX tyre of cru =40»9 459 or 7O xk/ 
int execmnts “7X number of rrocesses im exec x/ 
imt tlbholt; 7X time of day im 60th not in time x/ 
imt timel2 75 “/*% time in sec from 1970 x/ 
int toutleds /*% time of day of next sleer x/ 
int mreids /xX generic for uniaue rrocess id’s x/ 
char runmain /& scheduling flags x*/ 
cher runout /X scheduling fleas x*/ 
cher runruny /* scheduling fleas */ 
ONnSr CUPPris 7*® more scheduling x/ 
imt maxmems “7K actuel max memory rer frocess X/ 
imt Xiks¢ /K rointer to clock device #/ 
imt rootdevs “/*% dev of root see conf.c Xk/ 
int swerdevs /* dev of swear see conf.c */ 
imt swrlo; /*® block number of swar srace X/ 
imt mswars /*% size of swear srace X/ 
int urdlocks- 7% lock for sync xK/ 
int rablocks /*® block to be read ahead xX/ 
char reslocLis /® locs. of saved user resisters 
(see trar.ec) *K/ 
LM rrr ct me ee sc et ce cae ce se ee ase aa es ee ca */ 
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0250 
0251 
O252 
0253 
0254 
0255 
0255 
0257 
0258 
O259 
02460 
0261 
0262 
02563 
0264 
0265 
O266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
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Fp Wii lententetentestenteetententententeatitententententenenetamententen *x/ 
/% The callout structure is for 3a routine 
KX arransinsa to be called by the clock interrurt 
KX (see clock.c)d» with 8 srecified arsuments 
K Within & srecified smount of time. 
X It is usedy for exsamrley to time tab delays 
xX om teletyres. xK/ 
struct callo 
{ 
int c.times /X incremental time x*/ 
int cuwarsys /X¥ arsument to routine x/ 
imt (Keufuned OF /k routine */ 
+ calloutCNCaALLis 
ip Wei lolentelentontatentetentatententententetestentententennenentaaten ns 
/*% Mount structure? used to locete 


inode x/ 


xX the surer block of a mounted file, 
x/ 
struct mount 
{ 
imt modevys /*¥ device mounted x/ 
int Xm buffers /* rointer to surerblock x/ 
imt XXminodrs /*K rointer to mounted on 
+ mountCONMOUNT 13 


Fe Ce Neh ee eekalecheeetersteakerstentastontiecterstentestenteatetectentiatenten *x/ 


Rerroduced under licence from the Westerri 


Coryrishts J; 


Lions: 1976 


Sheet 02 


Electric Comranyuy NY 


May 24 


0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
O310 
O311 
OS1L2 
O313 
O314 
0315 
0316 
0317 
0318 
O319 
0320 
O32: 
0322 
0323 
0324 
0325 
0326 
0327 
O32 
0329 
0330 
O3S1 
0332 
0333 
0334 
O33S 
0336 
O3S37 
0338 
0339 
0340 
0341 
0342 
0343 
O344 
O3S4S 
0346 


0347. 


0348 


0349 
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/* kKt-il sddresses sand bits Xx/ 


#define 


#define 


#define 


#define 


#define 
#define 
#define 
#jefine 


UISE 0177600 
UISA 0177640 


UISA 0177660 


URMAF 0170200 


RO O02 1X 

WO 04 

RW O06 

ET! O10 7% 
Kkads * 


Corysrisghts Je Lions,y 1976 
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/* first user I-srpace descrirtor 
resister X/ 

user I-srace address 
register X/ 

user [l-space address 
register X/ 


/*% first 


/*% first 


/* access to 11/70 unibus mar x*/ 


access shilities X/ 


exrand sedment downwards */ 


ase sane sae ase soso este eves sees once ance sens cone sees cous umn cre toes cove sees ne sane snes cree ates wee xK/ 


11/40 KRISAGs 11745 KUSAG X/ 


under licence from the Western Electric Comranys 


May 24 


0350 
O3S1 
0352 
0353 
O354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 


0362 


0363 
0364 
0365 
0366 
0367 
0368 
03469 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 


12:28 1976 


unix/rroceh Fase i 


One structure allocated rer active 
It contains a11 data needed 


FTOCeSS + 


Frocess may be swarred out. 
Other rer rrocess dats (user-eh) 
is sWarred with the rrocess, 


x/ 
struct 
£ 

char 

char 
cher 
char 
char 
cher 
cher 
cher 
int 
imt 
imt 
imt 
int 
int 
imt 


Fe roc 


P_ustats 
er flads 
PoP Py 
PouSidty 
re wids 
retime y 
PoLCrUS 
Pumice s 
FP UGLYP 
Peis 
PPP Ld 
Puaddrs 
PuUSLlZe y 


1% 
7% 
7% 
/* 
7% 
1% 
1% 
7% 
7x 
1% 


* 


re ouwehans /K 


x 
x 
x 
Kk about the rrocess while the 
x 
x 
x 


rriority:s nesative is high x/ 

sidnal mumber sent to this rrocess X/ 
user idy used to direct tty sidmals xX/ 
resident time for schedulins x/ 

cru usade for scheduling x/ 

mice for scheduling */ 

controlling tty ¥/ 

uniaue rFrocess id x/ 

erocess id of rarent x/ 

address of swarrable image X/ 

size of swaerrable image (k64 bhutes) X/ 
event frrocess is awaiting X/.. 


ke _itexte3/kK rointer to text structure X*/ 


} procLNPROC]3 


LR mer ee tr ee ee ce ae et cee a ee xK/ 

/X stat codes K/ 

/* null 0 not assidned x/ 

#¥define SSLEEF 1 /*k sleering om high friocrity *k/ 
#define SWAIT 2 %/*kK sleering on low rriority */ 
#define SRUN 3 /* runningag */ 

#define SIMPL 4 /k erocess is being created */ 
#define SZOMBE Pa /k Process is being terminated x/ 
#define SSTOF 6 /kK Frocess heind traced X/ 

/* fleas codes x/ 

#fdefine SLOAL O11 /X in core X/ 

#define SSYS O02 /* scheduling rrocess x/ 

#define SLOCK 04 /XK Frocess camnot be swapred x/ 
#¥define SSWAF O10 /X fFrocess is heind swarred out xK/ 
#define STRC 020 /X Frocess is bheing traced x/ 
#define SWTED 040 /XK another tracing fled X/ 
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0400 /X 
O401 x 
0402 X 
0403 XxX 
0404 x 
0405 X 
O406 * 
O407 kX 
0408 X 
0409 XX 
0410 *X 
O411 xX 
0412 */ 
0413 str 
0414 <¢ 
O415 ir 
0416 ain 
0417 
0418 ch 
0419 ch 
0420 ch 
0421 ch 
0422 ch 
0423 ch 
0424 in 
0425 ch 
0426 ch 
0427 ch 
0428 in 
0429 ch 
0430 ch 
O431 st 
0432 
0433 
0434 7 
0435 in 
0436 ain 
0437 i: 
0438 in 
0439 
0440 in 
0441 in 
0442 in 
0443 if 
0444 in 
0445 im 
0446 in 
0447 in 
0448 in 
0449 in 


Rerroduc 
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The user structure, 

One alloceted rer rrocess. 
Contains sll rer rrocess date 
that doesn’t need to be referenced 
while the rrocess 15 swarred. 


Tne user block is USIZEX64 butes 
lomss resides at virtusl kernel 


loc 1400003 contains the system 
stack rer users is cross referenced 
With the rroc structure for the 
Same Frocess. 

uct wser 

/*X® save rS»ré when exchansing stecks */ 


/*® save fr registers X/ 
and fsav must tbe first in 


t u_rsavblodys 
t u_fsavle2sd3 


/*& sav structure */ 


ar u_sesfleas “*% flas for I03 user or kernel srace x*/ 
ar ULerrors /* return error code xX/ 

ar Uuuids /* effective user id x/ 

ar uisids /* effective srour id x/ 

ar uUruids /* real user id x/ 

ar uirsidys “* real srour id x*/ 


/*¥& rointer ta frroc structure */ 

“7% base address for IO x/ 

“*¥ botes remaining for I0 x*/ 

ar Ku_offsetC2135 7* offset in file for [0 xX/ 

t Kuledirs /*k Feointer to inode of current directory x/ 
ar uidbufClirksizids “/* current 
ar Kuda rr 3 “*® current rointer 


t ulrrocres 
ar Ku_bhsese; 
ar Kuacoumts 


to inode X/ 


ruct + /* current directory entry xk/ 
imt WoLmos 

char unamelTIRSIZIs 

ui_demnt 

t Kuledir? /% inode of rFarent directory of dirr x/ 


t uiwuisaliéids 1% 
t uuisdliéds 1X 


rerototyere sedmentstion addresses X/ 


Frototyure sedmentation 


t uv~ofileCNOFILEI$ /X rointers to file structures of 
oren files xX/ 

t uvlersCads /k& arguments to current system call */ 

t uitsizeys 4% text size (%64) x/ 

t u_dsizey /%®& Gata size (K64) */ 

t uissize? /*® stack size (64) x/ 

t user? /*% fled for I and UI! separation x*/ 


t uvasavl2d> 
t u_ssavC2d3 /* label variable for swarpind */ 

t wu sismalOnSIGd: /*& disposition of signals xX/ 
t woutimes 7% this rrocess user time X/ 

t u_stimey /% this rrocess system time x/ 
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rathname comronent x*/ 


deserirtors x/ 


/*X label variable for auits &£ interrupts x/ 
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int 
int 
int 
int 


ucutimel2ds 
u_estimel21s 
Ku_ards 

wire rofl4ds 


char u_intflsys 


unix/user.h Fase 2 


“/*® sum of childs’ 
/*& sum of childs’ stimes x/ 

/* address of users saved RO X/ 
7% profile arduments */ 

/*® catch intr from sys x/ 

/* kernel stack rer user 

xX extends from u + USIZEX64 

xX hackward mot to reach here 


ubtimes */ 


[Ko wer nnn nn x/ 


/*% wulerror codes X*/ 


#define 
#tdefine 
#define 
#define 
#tdefine 
#define 
#define 
#define 
#define 
$define 
tdefine 
#define 
tdefine 
#define 
¥define 
#define 
#define 
#define 
#define 
#define 
#define 
define 
#define 
¥define 
#define 
#define 
define 
#define 
#define 
#define 
#define 
#define 


Sheet 04 


Je Lions: 


FAULT 


-EPERM 


ENOENT 
ESRCH 
EINTR 
EIO 
ENXIO 
E2RIG 
ENOEXEC 
EBADF 
ECHILD 


‘EAGAIN 


ENOMEM 
EACCES 
ENOTBLK 
EBRUSY 
EEXIST 
EXDIEYV 
ENOIIEYV 
ENOTIHIR 
EISDOIR 
EINVAL 
ENFILE 
EMFILE 
ENOTTY 
ETXTRSY 
EF BIG 
ENOSFC 
ESFIPE 
EROFS 
EMLINK 
EFIPE 


/* See section "INTROCII)D" of 

KX the UNIX Frosreammer’s manual 

X for the meanings of these codes, xK/ 
LO6 


SOON & US Oh 
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0500 / low core 0550 

O50} OSSL SALSA ALAOLVASAAASAAAAAAL AAA AAA AAA AAA AA A AAAS ASA 
O502 tbr4 = 200 O552 / imterface code to C 

0503 brS = 240 Chiwk UAE 
0504 bré = 300 0554 

OS5S0S br7 = 340 0555 .dlobl call» trar 

0506 0556 

OS07 . = 0%, O557 .slobl —~klrint 

0508 br if O558 klin: Jor rOvcally —klrint 
0509 4 0559 

0310 0560 .4lohl -kKilsxint 

OS11 / trar vectors O5S61 klou? Jsr rOvcalls cklxaint 
OS12 trarsr br7to,. 7 bus error 0562 

0513 trary or7ti. / illegal instruction 0363 «slohl ~-Perint 

0514 trary Dr7t2. / bet-trace trar 0564 Fcin: dsr rOvcally -rPcrint 
OS15 trar? or7t+3. f i1o0t trar 0565 

0316 trary or7t4. / Fower fail 0566 .slobl -PCrIint 

O3517 trary br7ts. f/ emulator trar OS67 Fcous Jer rOvcallsy crcrint 
0318 trars or7té. / system entry 03568 

O319 O569 .slobl ~Clock | 

0520 . = 407, 03570 kwlrs JST. rOrcalls cclock 
OS21 .sdlobl starts OS71 | 

OS22 123 mr start 0OS72 

O523 Jmr Sune . 0373 +«sdlobl ~lreint 

03524 03574 Irouuws Jor rOycalls leint 
0525 4 = 60%, 0575 

0526 Kline or4 0576 .s¢lobl -~TKintr 

O527 kKlouws br4 OS77 rkhioé Jor rOovscalls orkintr 
03528 0578 | 

O3529 . = 7O™,. 0579 

0530 ecimns or4 03580 

OS31 Feour br4 o581 

0532 ; O582 

0533 . = 1007, 0383 

0534 kwles ord 03584 

035335 kwley ord 0385 

0536 03586 

0537 . = 114”. 03587 

0538 trars bor7t7, / 11/70 Farity 0588 

O53? 0589 

0540 . = 200%, 0590 

0541 leous or4 OSF1 

O342 OSF2 

0543 . = 220%, 0593 

0544 rkhioy brs 0594 

O54S OS9S 

O54& . = 240°. O396 

0347 trary br7t+7. / Frogrammed interruret 0597 

0348 trary or7t+s, / floatinsd Point 05983 

0549 trary br7t9, /f/ sesmentstion violation OS99 
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0600 / machine lansuase assist 0650 

0601 / for 11/740 0651 mov $ edatayrod 

0602 0652 13 

0603 / nom-UNIX instructions 0653 clr Cro + 

0604 mfri = 46500"tst 0654 cmr rOos$t_end 

0605 mtri = 64600°tst 0655 blo Lh 

0606 wait = 9656 

0607 rtt = § 0657 / clear user block. 

0608 reset = 3 0658 : 

04609 0659 mov $ ous rd 

OG10 /K mmr rm rr rr rrr renee x/ 0660 13 

O611 .4lopl starts rend, edatey, main 0661 cir CrOdt 

0612 start; 04662 Cmr rOs$ utCUSIZEXKd64,. 4] 
0613 bit $1»SSRO 0663 blo li 

0614 bre start / loor if restart 0664 

CSi3S reset 0465 / set ur -revious mode and call main 
0616 0666 / on returns enter user mode at OR 
0617 / initialize systems sediments 0667 

0618 | 0668 mov | $30000sFS 

O4619 mov $KISAOsrO 0669 Jsr PCy main 

0620 mov $€KIS00serl1 0670 mov $170000%9—-(sF) 

0621 mov $2009 r4 0671 clr —(SPF) 

0622 clr re : 0672 rtt 

0623 mov $é97r3 0673 

0624 13 | OG74. 7X S334 5245 4Se SS ere ae K/ 
0625 mov rey (rod+ 0675 .slobl ~cleaersed 

0626 mov $774069 Cridt / 4k Tw 0676 —clearses? 

0627 add r4yr2 0677 mov FS y—-(sr) 

0428 sob r3rib 0678 mov UISAQs-Csr) 

0629 0479 mov $3ZOZ4O0sFS 

0630 / initialize user sesment . 0680 mov 6(sp)} sUISAO 

0631 0681 mov UISTIOs—-(sr) 

0632 mov $Lendt+é3.sr2 0682 mov $4eUTSHO 

0633 ash $-G677r2 04683 clr ro 

0634 bic $117779r2 0684 mov $32errl 

0635 mov rey (ro)t+ f/f ksré = syusu 0685 13 

0636 mov $USIZE-1i1N<8i6s Cridt+ 0686 clr — (SF) 

0637 0687 mtei (rO)+ 

0638 / initislize io sesment 0688 son risib 

0639 / set uP counts om surervisor sedments 04689 mov (se )+/UTSIO 

0640 0690 mov (se d+eUTSAO 

0641 mov $10 (CroO)+ 0691 mov (seitePS 

0642 mov $774069 (ri >+ / Tw 4k 0692 rts PC 

0643 0693 

0644 / get a sP and start segmentation 0692). JK Ser estes eee See SSeS See x/ 
0643 7 06935 .alobl ~COPYSES 

0646 mov $ u+tCUSIZEK64. lyse 0696 _corysed: 

0647 ine SSKO 0697 mov FSy-(sr) 

0648 04698 mov UISAOs-(sF) 

0649 / clear Oss 04699 mov UISAL»-—(sP) 
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0700 mov $3O0S5402F'S 0750 

0701 mov 10¢(se)}*sUISAO O75) 7k Heh HS S5—$ S444 4S SSS Ss x/ 
0702 mov 12¢(s-),sUISAI 0752 .slonl trary call 

0703 mov UISLIO»s-(sr) OF 5S 7 Re Serr Shee SSS See a ; x / 
0704 mov UISIl»-(sr) 0754 .slobl _trar 

0705 mov $4,UITSHO O7355 trar: 

0706 mov $6,UTSD1 07356 mov PSy-4 (SF) 

0707 mov r2y-(sF) 0737 tst nofault 

0708 clr ro 0758 bnne if 

0709 mov $B8192.s9ri1 07359 mov SSROrssr 

0710 mov $32.9r2 0760 mov SSR2yssrt4 

O711 1: 0761 mov $1*SSKO 

0712 mfri (rO)+ 0762 Jor rOycallis ctrar 
0713 mori (ridt+ 0763 f/ono return 

0714 sob r2yib 0764 1:3 

O7 13 mov (sp tyr2 0763 mov $1+sS5SRO 

0716 mov (sp)+/UTSD1 0766 mov nofaults (sr) 
0717 mov (sp )+sUTSIO 0767 ret 

0718 mov (sp)+,UTISAL . 0768 

O7 19 mov (sre 3+rxUISAO O7 69 (K mmm mmm mr rm ere x/ 
0720 mov Csr dteFS 0770 .slobl _~runruns .swtch 
O721 rts FC | 0771 calli? 

0722 0772 tst ~(sFr) 

OF BS LK mr mmr trem mene xK/ - QO773 bic $3409FS 

0724 .slobl ~Sevius retuy caretu 0774 or if 

0725 savus 0775 

0726 his $340eFS 0776 call? 

0727 mov (sedteril 0777 mov FS y~(sr) 

0728 mov (sre )dsrO 0778 13 

0729 mov sey (rO)+ 0779 mov rly-(sF) 

07°50 mov roy (rdQ)+ | 0780 mfr i SP 

0731 hic | $340sFS 0781 mov 4(sP) 9-(sr) 
0732 mr (ri) 0782 bic $1 37¥(sr) 

0733 0783 bit $30000 9FS 

0734 aretu? 0784 hea if 

0735 bis $340-FS | 0783 Jsr rFOoyKCrO)+ 

0736 mov (se )tyri | 0786 23 

0737 mov (SFr) sPrO 0787 bis $3402FS 

0738 nr if 0788 tsth TP 

0739 0789 hea of 

0740 cretus 0790 hic $3409FS 

0741 bis $340%FS 0791 Jor POy i Swtch 

0742 mov (spdtyrl 0792. hr 2b 

0743 mov (SP) rKISAG 0793 23 

0744 mov $y rd 0794 tst (sp )+ 

0745 13 0793 mori SF 

0746 mov CrO)t+ysr | 0796 br 2f 

O74? mov Cro)yt¢erS O797 1? 

0748 hic $340°FS-.- | 0798 his $3O0000%FS 

0749 JF (ri? 0799 Jor Poy kKCrO)+ 
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0803 
0804 
0805 
0806 
0807 
0808 
OB09 
0810 
O814 
0812 
0813 
oB14 
oB15 
OB816 
OB17 
0818 
0819 
0820 
OB24 
0822 
O823 
0824 
0825 
0826 
0827 
0828 
0829 
0830 
0831 
0832 
0833 
0834 
0835 
0836 
0837 
0838 
OB39 
0840 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
0848 
0849 


Rerroduced under licence from the Western Electric Comranyys NY 


24 12329 1976 wunix/m40.s Fase 5 


cme CSroty CSF d+ 
on 

mov (spd-toy rl 

tst (sp d+ 

mov (se dty tO 

ruc 
/& ss) secant: odes eise ones ‘tind igeon bib aden’ sas coats eave :deue’/euus- dose Sess, Sess/0es jo5se,/sb0s/ Goce “Geed Sues baes 
»slobl ~fubytesy csubyte 
/X Sis ies Sins ems (aves saan “eed bees esas, cae laces "Sece: ease “sons eden ae icsusveaue lanes: kasd Sete oes. saci oene ones 
+dlobl ~fulbyte, suibyte 
/X cout’ etal Sin bats baa“ eiSSiiSGS6' Mabe 'Ssiee: Gods assy sede s6Eb endo ebée\ ones, sed, doen, Gnee: hoe 4566 (e008) coos psaweses 
+Slobl ~fuwords suwoTrd 
/*® ‘Goss een "San "orca: Co wi, Suan nas Usb Soe, sae idan abbe uns ebon loans bado Jobee ence, eeen [phen Teens “Sate sass soees 
+slonhl ~fuiwords,s csuiword 
~fuibyte;s 
._~fubyte? 

mov etsrdyrl 

hic $1lyril 

Jor FCs sword 

cme rly2¢sp) 

Dea Lf 

swab ro 
Li 

hic $I 3779 rO 

ris PC 


_Suibyte; 


_~subyte; 
mov 2(srdyril 
pic $isri 
Jsr POordword 
mov rOs-( SPF) 
cmr ris4(sr) 
hea if 
mova 6(sr) xis) 
br af 
13 
movb 6(sr)9 (spr) 
2 
mov (sr )+yrO 
Jer POr,FeWOrd 
clr ro 
rts PC 
_-~fuiwords 
_fiuvuords 
mov 2(spdeyril 
fiuword? 
Jor Peysword 
rts PC 
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0850 

O851 sword? 
0852 mov 
08353 Dis 
0854 mov 
OBss mov 
OBS4 mPa 
0857 mov 
0858 br 
0859 


0860 Usuiword?: 
08461 csuword? 


0862 mov 
0863 mov 
0864 suword?: 
0865 Jr 
0846 rts 
0867 

0868 Fword? 
0869 mov 
0870 bis 
0871 mov 
0872 mov 
0873 mov 
0874 mor dL 
0873 1: 

0876 mov 
0877 mov 
0878 rts 
0879 

O880O err: 
Ossi mov 
O882 mov 
0883 tst 
0884 mov 
osgss rts 
0886 

O887 /K mene 


O8F1 rts 


0893 /k ------- 


0894 ,sdlobl 
0895 Lincurc? 


0896 Mov 
0897 mov 
0898 mov 
0899 sup 
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FPSs-(sr) 
$3409FS 
nofaulty- (sr) 
ferrynofault 
(rid 

Csr dts tO 

if 


eCsepdert 
4(erdyrQ 


FOosreward 
eC 


PS »—- (sr) 
$340rFS 
nofaultsy- (sr) 
ferrynofault 


rO»y-( sp) 

(rid 

(se) +tenofault 
(seddtyFS 

Ft 
(sedtenofault 
CSE d+tyeFS 
(se)+ 

$-1LyrdO 


ere ence enne 2000 Cate ence SEES Sees CeTE SeLe SOEs SOtS CNET SOES cESe cane eee suse 


~seavfry,y cdisrlay 


Hees Gene Stee cows bene euen Sote Stes euEe GETe SEET BEES OTED Sons CESS Bees ERED BEER 


~iLncure 


rey- (sp) 


é 


K/ 


x / 


6(sp)ryr2 / hese of rrof with baservlenssoffrscale 
4(spdyrdO / FO 


4ACr2d9rO 


/ offset 
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0900 cle 6950 add $2 (ri) 

0901 ror ro 0951 23 

0902 mtd 6(r2)9r0 / scale 0952 dec r2 

0903 ashe $-14.9r0 0953 bic $79Pr2 

QO9Q4 ine rl 0954 mov _~cfreelists(r2) 

0905 bic $iorl 09355 mav r2, ecfreelist 

0906 CmiF rly2cr2) / lensthn 0956 33 

09G7 bhH1is lf 0957 mov (sp dtyr2 

0908 add (r2) eri / base 0938 mov (sp) teFS 

0909 mov nofaults—-(sr) 0959 rts PC 

0910 mov $2f snofault . O960 23 

O911 mf ri (ri) O961 cir Acri) 

0912 ime (SF) 09762 mov $-lLyrd 

0913 mtPi (rl) 0943 mav | (SP)+9r2 

0914 or Sf 0964 mov (Sr d+eFS 

O91S 23 , 0965 rts FC 

0916 clr 6(r2) 0966 

0917 33 0967 rutes 

0918 mov (sr dtsnofault 0°68 mov 2(Ssrd 9rd 

9919 13 0969 mov ACsr) srl 

092 mov (sr +er2 0970 mov FS »-(sp) 

0921 rts re 0971 mov rery—-(sr) 

0922 0972 mov — r39—-( sr) 

0923 / Character List get/rut 0973 bis | $3409FS 

0924. . 0974 bic > $1009PS — / $Fl & 
O925 (KR mem me rr ere een K/ 0975 mov 4Crl)yr2 : f/f last etr 
0926 .-slabl ~fetcs crutec 0976 bre lf | 

V927 AR Sr ee Se ae em ee K/ 0977 mov ~cfreelistsyre. 

0928 .dlobl ~cfreelist 0978 hee of 

0929 0979 mov (r2) ys, _cfreelist 

0930 setc? 0980 clr C(r2)+ 

O931 mov 2(sP)eri 0981 mov ray2¢ri) / first ftr 
0932 mov FSy-—(sr) 0982 br 2f 

0933 mav r29~-( SP) 0983 13 

0934 his $340eFS 0984 hit $7 yr? 

0935 bic $1L002FS / $F] § 09°85 hne 2 

0936 mov 2(rloeyre / first etr 0986 mov .~cfreelistysr3 

0937 Hea Of / empty 0987 hea of 

0938 movin Cr2)+2r0 / cheracter 0988 mov (r3)s_cfreelist 

0939 hic $!3779r0 0989 mov r39-10¢r2) 

0940 mov rer2(ri) 0990 mov ragr2 

0941 dec Cridt+ / count | O99 1 clr C(r2)+ 

0942 bre if 0992 23 

0943 clr Cridt 0993 movb rOv(r2d+ 

0944 clr Crildt / last block O994 mov rev4¢ri) 

09435 hr af 0993 imc: (rid / eount 
0946 15 0996 clr rod 

‘O947 Dit - $7yr2 0997 mov (SP )¢er3 

0948 one Sf 0998 mov (SrPdty re 

0949 mov “LOCr2)9(Cri) / mext block OP99 mov (SP +tePS 
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1000 
LOOL 
1002 
1003 
1004 
1003 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1O13 
1014 


END 
LV i 12 


1016 
1017 
1018 
1019 
1020 
1021 
1O22 
1023 
1024 
1O25 
1026 
1027 
1028 
1029 
L030 
L031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 


rts rc 
aN 
mov rosy TQ 
mOoV (sediters 
mov (sr tyre 
mov (sp )+y9PS 
rts FO 
/X aida clos “estes acess [oube “gbci\ sen eas Galea ecb “6i'ge: oa! 065%, bees iat Seo Smee Guam 'ocee' oeas (oblate pase Stes ence 
»+dlobl wDSCK LIF 
/* sites sas’ obas (ate ess bate ‘uses bans, Ged ooen acas abun! GaesiSaee eats ebdn| pene’ enna, deed ‘esos heal ase Saou (onan ene 
«Slop _resloc 
~backiur ’ 
mov 2(srpsysart2 
mov rey (SPF) 
kei es roe hook ise 
mov reyssrt2 
mov (Sr to r2 
movo Jflds rod 
bre =f 
mov 2(srdeyrdO 
movb ssrt2eri 
Jor roe lf 
movi sort3sri 
Jor roylf 
movp ~regloct/syril 
asl ri 
add rOerld 
mov ssrt4y (rid 
clr ro | 
23 : 
rts PC 
13 
MOV rly-(sr) 
asr (se) 
asr (Se) 
asr (Sr) 
bic $1 7erl 
movi ~redloc(ridsyrl 
asl ri 
add rOyri 
sub (srity Cri) 
rts Peo 


/ hard Part 


/ simulate the ssr2 register 
backur 3 
clr T2 ( 
mov $lebflg i 
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*/ 


missing on 


b3ackur resister ssril 


clrs Jfl¢d 
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LOS0 mov 
LOS1 jSsr 
1052 mov 
1053 ash 
1054 bic 
10355 Je 
1036 03 
1037 

1058 

1059 t00; 
1060 clrb 
i061 

1062 t103 
1063 mov 
1064 swab 
10635 hic 
1066 mF 
1067 O03 
1068 

1069 wédi 
1070 bit 
1071 bee 
1072 bit 
1073 hee 
1074 bit 
1073 bre 
1076 

1077 / simulate 
1078 bic 
1079 br 
1080 

1081 

1082 13 
1083 ash 
1084 bis 
1085 br 
10864 

1087 w4?: 
1088 mov 
1089 Jer 
1090 bis 
1091 rts 
1092 

1093 t073 
1094 clrb 
1095 

1096 wW0? 
1097 ws; 
1698 mOoV 
1099 or 
Reproduced 
Coryrights 


sort4erQ 

roeygfetch 

rogri 

§$—-LiL.»rdO 

$1369 rO 

XOF Crd) 

$008 tOls tOPs £035 tO4¢ tOoSs tOoés to? 
t1O03 tills ties t13% t14¢ t15% t1iés ti? 


bfle 


risrd 

ro 

$lid»rd 

KOF Crd) 

mwOy uly wuss ws wae use wuss 7 


/ single ors m€tfiriy sxty illegal 
$£400erl 


iS / all but mCtfhIs set 
$200srd 

Lf | / omfri 

$LOOsrl 

iS f SHt 


mtei with double (spP)i¢+sdd 
$4O00erl / turn instr into (sr)+ 
Lol 


f/ Simulate mfri With double ss7r- (sr) 


Sheet 10 


$herl 
$46eri1 
tol 


{f ~(spr) 


/ Jsr 
risrod 
rcessetreg 
$17 30009 r2 
PC 


/ assume mo fault 
{/ -2 from sr 


/ EIS 
bfls 


/ Jjmey swab 
/ single or 
risrd 
setres 
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1100 1150 add ssrt2sr0 

1101 tol? / mov 1151 mov (rO),rO 

1102 tO2? 4 CMF 1152 

1103 t0O3: / hit 1153 / if res has been incrementedy 
1104 t043 / bic 1154 / must decrement it before fetch 
1105 t05: / bis 1155 

1106 t06$ / add 1156 hit $1740009r2 

1107 t16? / sub 1157 ble 2f 

1108 clrb bfl¢ 1158 dec ro 

1109 1159 bit $100002r2 

1110 t113 / movb 1160 hea 2f 

1111 t12: / emeb 1161 dec rg 

L1li2 t133 / bith 1162 23 

1113 t143 / dich 1163 

1114 tis? / bish 1164 / if mode is 6»7 fetch and add X(R) to RK 
1115 mov rivrd 1145 

11164 ash $-46,r0 1166 Hit $4000-r1 

1117 Jsr rPeysetreg L167 hea <f 

1118 swab re 1168 bit $2000rri1 

1119 mov risrd 1169 hea af 

1120 Jor reysetresd 1170 mov rO»—- (sr) 

Li2i | 1171 mov ssr¢4yr0 

Li22 / if delta(dest) is zeroy 1172 add $29rQO 

1123 / no need to fetch source | 1173 Jsr Pcyfetch 

1124 1174 add (sr )+erd 

1128 bit $3709r2 L175 23 

1126 hee lf . 1176 

1127 1177 / fetch orerand 

1128 / if mode(source) is Ry» 1178 / if mode is 35:7 fetch xX 
1129 / no fault is rossible 1179 

1130 1180 JST Porsfetch 

L131 hit $7000srl 1181 bit —6« $1000rrl 

1132 hea if 1182 bea 1f 

1133 1183 hit $60009r1 

1134 / if res(source) i5 res(dest)» 1184 bne fetch 

1135 / too bad. 1185 1: 

1136 . 11864 rts PC 

L137 mov r29-(sr) - 1187 

1138 bic $1743709 (sr) 1188 t17: / illesal 

1139 emeb l(sp)y(sp)+ | : L1i89 13 fbr 

11.40 he t17 1190 wu23 . / br 

1141 1191 w33 / or 

1142 / start source cycle 1192 73 / illegal 

1143 /7 fick ur value of res 1193 ined Jflg 

1144 1194 rts FC 

1145 mov risrd 1195 

1146 ash $-4GyrQ 7 11946 setreg: 

1147 bic — $F? yrQ 1197 MOV rOr»-(sr) 

1148 movi ~redloc (rd) srd 1198 bic $!7srQ 

1149 asl ro L199 bis rOosyr2 
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1200 mov (sr dtyrO 

1201 ash $-3srO 

1202 bic $! 7rd 

1203 movo Of CrO)srod 
1204 tstb bfls 

1205 hea if 

1206 Oat $oyTs2 

1207 bee 2f 

1208 bit $4yr2 

1209 Dea at 

1210 13 

1211 cmP rOr $20 

1212 hea of 

1213 cmr TOs $-20 

1214 NER of 

1245 asl ro 

1216 23 

1217 bish royre 

1218 rts PC 

1219 

1220 03 .byte Ov0710%209-109-2070%0 
1221 

1222 fetch? 

L223 bic. tiyroO 

1224 mov nofaults-(sr) 
1225 mov $ifynofault 
1226 mt ed (rd) 

1227 mov (se)dtyrd 

1228 mov (srd¢tenofault 
1229 rts eC 

1230 | 

1231 1: | 
1232 Mav (sr dtenofault 
L233 clrb ra 

1.234 mov $-1,srd 

1235 rts eC 

1236 

1237 .bss 

1238 bfis: eet] 

1239 Gfle? o=,t1 

1240 .text 

1241 

DQ LK me rn re cree ene re re ee ee ee ee 


1243 .slobl 
1244 _coryin: 


~COPYIn:  coryout 


1245 Js PC ?,CORSKU 
1246 1: 

1247 mfrei CrO}+ 

1248 mov CsedtyCridt+ 
1249 sob r2vib 


/ clear out dest on fault 


x / 
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1250 br 
1251 

1252 —coryout? 
1253 Jsr 
1254 1? 
1255 mov 
1254 mite i 
1257 sob 
1258 23 
L259 mav 
1260 mov 
1261 clr 
L262 rts 
1263 

1264 corsiu? 
1265 mov 
1266 mov 
L267 mov 
1268 mov 
1269 mov 
1270 MoV 
L271 mov 
1272 asr 
L273 mov 
1274 rts 
1275 

1276 13 
1277 mov 
1278 mov 
1279 mov 
1280 rts 
1281 

1282 /K sme 
1283 .slobl 
1284 idle? 
1285 mov 
1286 bic 
1287 wait 
1288 mov 
1289 rts 
1290 

L294 /K mmm 
1292 .slobl 
1293 sr1l03 
1294 hic 
1293 rts 
1296 

1297 sPl1l1: 
1298 bis 
1299 hic 
Rer roduced 
Coryrishtys 
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2f 


PC yCOPSY 


(rOd+9-(Csr) 
Cridt+ 
revib 


(srd¢tenofault 
(Ssri¢tyr2 

rg 

PC 


(se )+tyrO 

Par (SEF) 
nofaultys- (sr) 
TOr-( SF) 
LO(spdyrd © 
12¢spPderri . 
L4(sr)y»re2 

r2 
$ifsynofault 
PC 


(se dtenofault 
(sr d¢ter2 
$—-1srd 

FC 


ence seve sees cces sees cone once sean cess cows eves G00 cons eves tute ones cone eee ence x / 


FS9- (sr) 
$340rFS 


(SE) +teFS 
eC 


core sees once eves gous sete ence omit ones seem cnet re0s cess com eect vest ones cone ome xK/ 


-~SP10» csPplly _spPl4y usrPlSs, usrelés —sprel7 


$3409FS 
PC 


$40x9FS 
$3009FS 
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1300 rts FC 1350 


1301. 139) / KSSH eS SSeS eee eres Se K/ 
1302 wsrl4é 1352 .¢lobl Simr 

1303 wsFe153 . 1353 dumes 

1304 bis $3402FS 1354 bit $1*SSRO 

1305 bic $100xFS 1355 anne dumr 

1306 rts eC 1356 

1307 1357 / save regs rOrrleyr2ryrdryr4a4srsryrérsKIAG 
1308 cs5r163 1358 / starting at ahs location 4 

1309 Dis $3402FS 1359 

1310 bic $409FS 1360 mov rOr4 

1311 rts PO 1361 mov $46rrO 

1312 1362 mov thy Crodt 

1313 wsFe173 13463 mov rey Crodt 

1314 nis $340°FS 1364 mov rar (rod+ 

1315 rts eC 1365 mov r4y(roO)t 

1316 1366 mov roy (rdO)+ 

L317 (KR mre nn ee rr er eee ee x/ 1367 mov see (rO)t+ 

1318 .slohl ~ar atid 1368 mov KISAG:s (roOdt+ 

1319 cdreadd: 1369 

1320 mov a(srdyrQ 1370 / dume all of core (ie to first mt error?) 
L321 add 4(srpd92CrQ) 1371 / omto mas tare. (9 track or 7 track “binary?” ) 
1322 ade (rQ) 1372 

1323 rts PC 1373 mov $MTCy»rO 

1324 1374 mov $4600042(rO)+ 

L325 [Km rm rr rrr rrr rn x/ 1375 clr 2¢rd0) 

1324 .dlobl CMF 1376 13 

1327 cdeemF? 1377 mov $-Sil2.rrd) 

1328 mov 2(sP)rrd0 | 1378 inc —~(ro) 

1329 mov ACsrPosyrl 1379? 23 

1330 sub 6(sr)9rO 1380 tstb (rQ) 

1331 sub 8 (srdyrl 138i hate 2b 

L332 | she ro 1382 tst (rO)+ 

1333 nae if | | 1383 bee lb 

1334 cmr rOr$-1 1384 reset 

1333 brie mt. 1385 

1336 cme ris$-S12. 1386 / end of file and loor 

1337 bhi 3f 1387 

1338 22 1388 mov $560007s-—Cr0) 

1339 mov $-S1l2.r0 1389 or ° 

1340 rts PC 1390 

1341 13 1391. JX. SSeS See See Se Sa re eee x/ 
1342 ane =f 1392 .slobl ~LGiv 

1343 cmr rlivy$S1i2. 1393 —ldiv: 

1344 blo 3f 1394 clr ro 

1345 23 1395 mov a(sedeyrd 

1346 mov $512.9 ri1 L396 div 4A(srdsrdO 

1347 33 1397 rts PO. 

1348 mov risyrd 1398 

1349 rts PO L399 PK mem rr rr ee x / 
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1400 .slobl _ilrem L450 MTC = 172522 
1401 Tlrem:? 1451 UISAO = 177640 
1402 clr ro 1452 UISAL = 177642 
1403 mov 2(sr deri 1453 UISIO = 177600 
1404 div A( sp dsrdO 1454 UISHi = 177602 
14035 mov risrd 1455 I0 = 7600 

1406 rts PC 1436 

1407 1457 .datea 

1409 7%: Se $ SSeS eee eee eee = x/ VAS LM me ee re ee err ter cr mt coe ern ce ee x/ 
1409 .slobl ~l shift 1459 .slobl ~Kaé9 crutyre 
1410 lshift: 1460 kad KISAG 
1411 mov 2(srdeyrl 14461 ucrutyre3 40. 

1412 mov Cridtsrd 1462 

1413 mov Crideyri 1463 .hss . 

1414 ashe 4(sr)yr0 BAGH PK rrr en ee ee tre ee et oe x/ 
L410 nov Tiesto 1465 .slobl nofaults ssry badtrar 
1416 rts PC 1466 nofault?.=.t2 

1417 | 1447 ssri e=etG 
LATS ZK. See ee Ce ne er eee X/ 1468 badtrar?.=.+2 

1419 .slobl csv 1469 

1420 csvi 1470 

1421 mov rSy»rO 1471 

1422 MOV Sry TS L472 

1423 mov r4y-(sr) 1473 

1424 mov r3y9-(sr) 1474 

1425 mov r2y—-CsF) 1473 

1426 Jsr rosy Crd) 1476 

1427 1477 

T4228: JK Sess SHS ee eee K/ 1478 

1429 .,slobl.cret 1479 

1430 cret? . 1480 

1431 mov royril 1481 

1432 mov ~(rid»r4 1482 

1433 mov ~(rildyrs 1483 

1434 mov —~(rldyr2 1484 

1435 mov TS» SF 1483 

1436 mov (sp tyr 1486 

1437 rts PC 1487 

1438 1488 

L439 /K mr rm rm rr er mee x/ 1489 

1440 .dlobl i 1490 

1441 _u = 140000 1491 

1442 USIZE = 16. 1492 

1443 } 1493 

1444 FS = 177776 1494 

1445 SSRO = 1773572 14935 

1446 SSR2 = 177576 1496 

1447 KISAO = 172340 1497 

1448 KISAG = 172354 1498 

1449 KISTO = 172300 1499 
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Copyright, JI. Lionss 1976 


Reproduced under licence from the Western Electric Comranyr NY 
Coryrishtys » Lionsy 1976 : 


Sheet 14 Sheet 14 


May 24 12229 1976 wunix/main.c Fase 1 


1500 # 

1501 #include ",../raram.h" 
1502 #include "../user.h" 
1503 #include "°../syustm.h" 
1504 #include *../rroc.h" 
1505 #include "../text.h" 


1506 #include ++/inode.h" 


1507 #include “../segd+h" 

1508 

1509 #define CLOCKL 0177546 
1510 #define CLOCK2 O1723540 
151i /*X 


1512 ¥* Icode is the octal bootstrar 
1513 kK rrogram executed in user mode 
1514 * to bring ur the system. 


1515 x/ 

1516 int icodel J] 

1517 ¢< 

1518 O104413>» 7* sus execs inity inmitre x/ 
1519 0000014: 

1520 0000010, 

1521 0000777 “7X bros KS 

1522 0000014; “K initres inmits 0 *K/ 
1523 0000000» 

1524 00624357» “7K init? “</etce/init\o> x/ 
1525 0061564 

1526 0064457 

1527 0064556» 

1528 0000164» 

1529 +s : 

1550 7K See a ee eee eee eee x/ 

1531 

iS32 /xX 

1533 X Initialization code. 

1534 * Called from m40.s or m45.es as 

1535 x soon as 2 stack and segmentation 

i536 * have been established. 

1537 kk Functions? 

i538 xk clear and free user core 

1539 * find which clock is confisured 

1540 * hand craft Oth Process 

1541 ¥ call a11 initialization routines 

1542 xk fork ~- Frocess 0 to schedule 

1543 xX -~ gerocess 1 execute hootstrar 

1544 xX 

1545 €K panic: mo clock -- neither clock resronds 
1544 ¥* loor at loc 6 in user mode -- /etc/init 
1547 * canmot be executed. 

1548 x/ 

1549 
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1550 maint) 


isSi < 

13552 exterm scharys 

13553 resister il: Xr» 

1554 

1555 /*% 

1556 K zero and free all of core 
Lao7 x/ 

1558 

1559 urdlock = OF 

1540 i = kkaé + USIZEs 

1561 UTISH-=r0COI] = 0774063 

1562 for dss) € 

1563 UISA-2rCOld = 1s 

1564 if(fuibyte(O) = 0} 

1363 break» 

1546 clearses(i); 

1567 maxmemtt ¥ 

1368 mfree(Ccoremary Ly» id} 
1569 itty 

1570 } 

1371 if(€crutyre == 70) 

~1572 for(i=0% if 623 i=t2) 

1373 UBMAFP 2 rCid = is<123 
1574 UBMAP->SrCitid = O» 

1575 + . 
1576 erintf "mem = ZAlN\n"s maxmemkS/16) 3 
13577 erintfC"RESTRICTED RIGHTS\m\n")s 
1578 erintf ("User durelication or disclosure is subuect toN\n")s 
1579 Printf ("restrictions stated in Contract with Western\n")3 
1580 printf ("Electric Comranys Inee\m") 
158i 

1382 maxmem = min(maxmems MAXMEM) 
1583 mfree(swarmary mswar, swrelo)y 
1584 

1585 /* 

1586 Kk set ur system Frrocess 

1587 K/ 

1588 

1589 eroclOld.riaddr = xKkads 

1590 procCOl].r_size = USIZEs 

1591 rFroclCOld.ristat = SRUNs 


1592 proclOd.e.flag =i SLOADISSYSs 


1593 Weueroce = &rroclOds 
1594 

1595 /* 

13596 KX determine clock 
1597 x/ 

1598 


1599 UTSA-2rC7] = kaéClis 7k io sesment */ 
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1600 UISN-sr07] = 0774063 


1601 lks = CLOCKIs 

1602 if(fuiword¢lks) == -1) ¢< 

1603 lks = CLOCK23 

1604 if¢€fuiword(1ks) == -1) 

1605 raniced'nae clock" )3s 
1606 > 

1607 Klks = 01153 

14608 

1609 7X 

1410 KX set ur ‘known’ i-nodes 

1611 K/ 

1612 

14613 Cimitd)s 

1614 binmitdds 

141% Limitdds 

14616 rootdir = iset(rootdev:y ROOTINO) =: 
1617 rootdir-Si_flas =& YILOCKs 

1618 Usucdir = isget(rootdevs ROOTINO) : 
1619 Useu_edir-si_flag =& “ILOCKs 

1620 

14621 “* 

1622 K make init rrocess 

14623 X enter scheduling loor 

1624 KX with sustem Frocess 

1625 K/ | 

1626 

14627 if(newrroc(d)) <€ 

L628 exrand(USIZE+1) 3 

1629 estahbur(O» ls O» O38 

1430 coryoutlCicodeys O» sizeof icode); 
L631 /*% , 

1632 * Return goes to loc. O of user init 
14633 KX code Just coried out, 
1634 x/ 

16335 returns 

1636 + | 

14637 sched ()3 

1438 } . 

DGS LK mr cr cr me re a ee cree a eo x/ 
1640 

1641 /X 

1642 xk Set ur software rrototyure sedmentation 
1643 * resisters to imrelement the 3 rseudo 
1644 xX textrvdatarstack sedment sizes rassed 
1645 xk as arsuments, 

1646 xX The argument ser srecifies if the 
1647 * text and datatstack sesdments are to 
1648 * be serarated. 

1649 x/ 
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146450 estabur(mts nde mss ser) 


1651 < 

1652 resister ay Kars Xdps 

1653 

1654 if ser) <« 

16535 iftcrutyvre == 40) 

1656 oto err? , 
1657 if(nsed (nt) > 8 ii mses (ndd+nses (ms) = 8) 
1658 goto errs 

1659 + else 

1660 if(nses(ntitnses(nddtnsed (ns) = 8) 
L661 goto errs 

1662 if(nttnidtnstUSIZE = maxmem) 

1643 goto errs 

16464 a = OF 

16635 ar = Zueu_uisalolds 

1446 de = Zueuiuisdlods 

1667 while(nt s= 128) <« 

1668 Kde¢t = (127828) 1% ROS 
1469 Xart+ = 33 

1670 a =+ 1283 

1671 mt =- 128% 

1672 } 

1673 if(nt>d £ 

1674 Xdett = COmt-L)88) | ROS 
1675 | Kar¢+ = 33 

1676 + 

1677 if(ser) | : 

1678 while(ar <= &u.,u_uisalBI) <€ 

14679 Kapt¢t+ = OF 

1680 Xdett+ = OF 

1681 > 

14682 a = USIZEs 

1683 while(nd == 128) <¢ 

1684 Kde¢+o = (127858) ¢ RWs 
1685 Kar¢+ = a 

1686 a =+ 1283 

1687 mad =- 1283 

1688 } 

1689 if(nd) <¢ | 

1690 Xdett = (Cnd-1)<28) | RWs 
1691 Kartt = a3 

1692 a =+ md+s 

1693 + 

1494 while(ap < &u.u_uisal8I) ¢£ 

1695 Kdet+ = OF 

1696 KXartt+ = O; 

14697 } 

1698 if(ser) 

1499 while(ar «< fu.u_uisaliéd) <€ 
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1700 Kdett = Of» 1750 while (re = RUISA->rCO7) 

1701 Karet¢+ = O» 17351 K--re = K--ur + ay 

1702 } 1752 if (Q(urP=u.u_LProcr-srP_textre) §= NULL) 
1703 @a=t msy 1733 8 =- UrP-Sx_caddrs 

1704 while(ms == 128) < 1754 uP = Su.u_uisd[1é]3 

1705 ga =- 1283 1755 re = $UIS0-"rCiéds 

1706 ms =- 128% 1756 )0—si#§-§Cs aif (crutyure == 40) 

1707 Ke-—-de = (127258) § Rus 1757 le =- By 

1708 K--arF = ay 1758 re =- By 

1709 + 1759 + 

1710 if(ns) <€ 1760 while(re = SUISII-:rCoO]) ¢£ 

171il K--de = (€(128-ms)<<8) «| RW ot EDs L761 K-—re = K-—-uRs 

1712 K--ar = ga-128,% 1762 if( (kre &® WO) == Q) 

1713 > 1743 reCCUISA-UISDID/2] =~ ay 
1714 if(!ser) <¢ 1764 > 

1715 are = &y.,u_uisalOds 1765 } 

1716 de = &u.eu_uisalBds L766 7K ere eS eS ee Se See Se xK/ 
1717 whileCar <= &u.u_uisal8]) 1767 

1718 Kdett+ = Kartts 1768 /*x 

1719 ar = &ueuuuisdlOdy 1769 * Return the arg/1i28 rounded ur. 
1720 de = £y.u_uisd[ B43 1770 x/ 

1721 whiletar << &u.u_uisd£8]) 1771 mses (mn) 

1722 Xdet+ = Karttys 1772 ~«< 

1723 + 1773 

1724 sured ()s 1774 returnm( (m4127)227)3 

17235 returm¢O) ¥ | 1775 } 

1726 L776 SK mmm rr rr reer x/ 
1727 err? 4777 

1728 ueuerror = ENOMEMS 1778 

1729 retiurnm¢-1) 3 1779 

1730 } 1780 

L731 LK mer rn rr rr mn x/ : 1781 

1732 1782 

1733 /*X . 1783 

1734 * Load the user hardware sedmentation 1784 

1735 kk resisters from the software Frrototure. 1785 

1736 * The software resisters must have 1786 

1737 ** been setur rrior by estabur. 1787 

1738 x/ 1788 

1739 sures () 1789 

1740 <¢ 1790 

1741 resister Kury Krey ay 1791 

1742 | 1792 

1743 38 = WeULProcre-srwladdry L793 

1744 ure = &y.,uluisalléds 1794 

1745 re = SUITSA-2rCLiéids L795 

1746 if(crutyre == 40) 1796 

1747 up =- By 1797 

1748 re =~ §3 17°98 

174°? } 1799 
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+ 
1% 
x / 
#include "../raram.h" 
#include ee /user.h" 


ee /PPTOCLN 

oo/text.n" 

+e+/syustm.h" 

o+/file.h" 

#ineclude "..+/inode.h" 

#include *../buf.h* . : 

LEC PSS SS Be ee ee xK/ 


#finelude 
£Finclude 
#include 
#include 


Create a new rrocess-- the internal version of 

sus fork. 

It returns 1 in the new Frrocess. 

How this harrens is rather herd to understand. 

The essential fact is that the new rrocess is created 
in such &@ way that it arresrs to have started executing 
im the same call to newrroc as the parents 

but in fact the code that runs is thet of swtch. 

The subtle implication of the returned value of swtch 
(see shove) is tnat this is the value thet newrroc’s 
caller in the new rrocess sees. 


3H HM HMMM HK HM NK HK 


xK/ 

newrrac() 

{ | 
imt aly a2; 
struct Froc Krys: xkurys 
register struct frroc kre; 
resister XKrirsy my 


oF = NULLS 
/* 
K Firsts Just locate ea slot for @ rrocess 
KX and cory the useful info from this Process into it. 
* The Panic "cannot herren"® because fork hes already 
* checked for the existence of a slot. 
x/ 
retry: 
meidtts 
if(mrpid = 0) <€ 
meid = Oy 
soto retry; 


for(rer = &reroclCO]: rep «< &erocCNPROCIs: reett) € 
if(rrer-sewstat == NULL && f==NULL) 
Fo Ppp, 
if (rpp-splpid==mrid) 
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soto retryys 
} 
if (rer = fe y==NULL) 
Fanicd'no rFrocs")¥ 


/X 
KX make Froc entry for new Proc 
x/ 
Tir = UWeULrrocrs 
uP = pis 


TPS stat = SRUN?: 

repose oflagd = SLOADs 
TRPOSPLuid = rpirpworPouids 
TPO SE LEC = PL pete otters 
TRPOSPLNLCe = Pip eS PLnices 


TPE SP texte = piece texte 3 
PERKS Pid = mridy 


PPPOE pei = PpipeSpolpids 
Trereo-oe time = OF 


7X 
X make durlicate entries 
KX where needed 


*x/ 
forCrire = SueucofilelO]1s rir = Susu_lofileCNOFILE 3 > 
if(Crer = Kriedt+) != NULL) 
rere Pf counttts 
if€Crerpstup->-e_ texte) I= NULL) <¢ 
PPPS eM counts ¥ 
TRPM SM Ccoounttts 
+ 
eli eagire2ei_coumt++s 
“x 


K Fartially simulate the environment 

xX of the mew rrocess so that when it is actually 
X¥ created (hy corying) it will look risht. 

xK/ 

savulu.,u_rsav) § 


PRP TS Py 

UsULPPOCrE = Pers 

rir = ury 

m = Pirpw-srPosize;s 

al = rir-srpiwaddrs 
PPPO SP size = my 

a2 = malloc(coremars: i)» 
7 


* If there is mot enoush core for the 
K new Frrocesss swear out the current rrocess to 
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1900 K sdenerate the cory, 1950 

1901 xK/ 1951 soto loors 

1902 if¢€a2 == NULL) ¢€ 1952 

1903 Tip-se_stat = SIILs 1953 sloor? 

1904 rereooeeladdr = als 1954 ruointts 

1903 savulueuissav)y 1955 sleer(&runins FSWF) » 

1906 MOWSPF(Crery O» Os 1956 

1907 Teeo-op oo flag =i SSWAFs 1957 loor’ 

1908 Tip-srP_stat = SRUN: 1938 SPLG()s 

1909 + else ¢{ 1939 m= -lLy 

1910 “x 1960 for(rre = &rroclO]s re «= &erocDNPROCIs rett+) 
1911 K There is corey so Just cory, 1961 if(rren-sreustat==SRUN &% (Cre-se_fless#é’SLOAD)==0 && 
1912 K/ 1962 te-SPpoltime = md) 

1913 TerPo-SsPladdr = a2; 1963 ei = Trey 

L914 while (m-—) 1964 m= pe->p_ltimes 

1915 corysed(altt, a2tt+)s 1965 + 

1916 } 1946 if(m == -1) ¢€ 

1917 UseULFProcre = rirys 1967 rynouttt 

1918 returnm(Ods 1968 Sleep (&runouts FSW) + 

L919 } 1969 soto loors 

L920 LK mr rr rr er ee re me x/ 1970 + 

1921 1971 

1922 /*X 1972 /* 

1923 *k The main loor of the scheduling (swarring) 1973 KX see if there is core for thet rrocess 
1924 K Frocesse 1974 *x/ 

1925 * The basic idea is? . 1975 | 

1926 * see if anyone wants to he swaerred in? 1976 Selo); 

1927 kK swar out rrocesses until there is rooms 1977 re = pls 

1928 kK swar him in; 1978 8 = fP-serPolsize;s 

1929 kK reresat. 1979 if((re=re->ep_texte) != NULL) 

1930) «6K Althoush it is not remarkably evidenty the basic 1980 if(rre-Sxuccount == Q) 

1931 kK sumchronization here is om the runin flags which is 1981 a o=+ pee ee usize? 

1932 k slert on and is set once rer second by the clock routine. 1982 if((a=malloc(coremar:s 3@)) != NULL) 

1933 xk Core shuffling therefore takes rlace once rer second. 1983 goto found2+s 

1934 1984 

1935 kK ranic? swar error -~- IO error while swarringd,. 1985 /* 

1936 kK this is the one rFanic that should be 1986 kX none founds 

1937 xk handled in a less drastic way. Its 1987 K look sround for easy core 

1938 ** vers hard. 1988 K/ 

1939 xK/ | 1989 

1940 sched () 1990 srlé¢)3 

1941 <¢ L991 for(re = &rrocCO]s re << &erocCNPROCIs rett+) 
1942 struct Froc kris 1992 if((re-se_flag&¢(SSYSIiSLOCK:SLOAD)>==SLOAD &&% 
1943 register struct proc xXrre3 1993 (re--plstat == SGWAIT fi re->poustat==SSTOF) ) 
1944 resister ey my 1994 foto founds 

1945 1995S 

1946 /*X | 1996 LK 

1947 K find user to Swear in. — 1997 KX mo easy corey 

1948 X of users readyur select one out longest 1998 K if this Frocess 15 deservingy 

1949 K/ 1999 xX look around for 
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2000 KX oldest rrocess im core 
2001 K/ 
2002 
2003 if(n <= 3) 
2004 goto sloors 
2005 rm = — 3 
2004 for(re = &eproclO]s re < 8erocCNFROCI]$ rett)- 
2007 if((Crpe-sepiuflas&s(SSYSiSLOCKISLOATIN) >»==SLOAD && 
2008 Cree-?ep i stat==SRUN fi ree Seustat==SSLEEFP) && 
2009 reeore time - nm) £ | 
29010 el = res 
2011 mo o= peels times 
2012 + 
2013 if m «< 2) 
2014 . soto sloors 
2015 re = Pils 
2016 
2017 /X | 
2018 K SWaF user out 
2019 K/ 
2020 3 
2021 found 
2QO22 SeLOC)s 
2023 re-sp flag =% “SLOALSs 
2024 “MoWar (res ly O)¢% 
LOLS goto loor;s 
2026 
2027 /* 
—6 2028 KX SWSarF user in 
2029 x/ 
2030 _ 
2031 found23 
2032 if(C(Crr=pi-Seoltexte) §= NULL) 
2033 if(rre->xuccount == 0) <¢ 
2034 if(swar(rre-sxedaddrs a rre->eusizer KBUREAD) > 
2035 soto swarers 
2036 rreosxicaddr = a 
2037 a =+ pe-sexsizes 
2038 + 
2039 PPS KUCCOUMttEt 
2040 + 
2041 reo = pls 
2042 if(swar(re-sepladdry ay re-rrp_isizey RB READ) > 
2043 soto swarers 
2044 mfree(swarmars (rre->pousizet+7)/8» re->e_addr)» 
2045, reo-sPiaddr = a 
2046 re- se iflag =i SLOALs 
2047 feo-sre time = OF 
2048 soto loors 
2049 
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2050 swerer? 


2051 ranic( "swear error"); 

2052 } 

2093 fk. Hee HSS see SS eee x/ 

2054 

2055 /x 

205646 xk Give ur the rrocessor till 82 Wakeur occurs 
2057 kK om chany at which time the rrocess 

2058 * enters the schedulind aueue at rriority fri. 
2059 xk The most imreortent effect of pri is that when 
2060 *k* rprix0O 3a sisnal cannot disturb the sleery? 
2041 kK if pris=0 signals will he rrocessed. 

2062 * Callers of this routine must he fFrerared for 
2063 kK rremature returns and check that the reason for 
2064 xk sleering has sone sway. 

2065 *X/ 

~066 sleer (chan: Fri? 

2067 £ 

2068 resister rey s¥ 

2069 | 

2070 $s = FS->intes? 

2071 Pr = WeULProcrs 

2072 if(epri >= 0) £¢ 

2073 ifCissis()) 

2074 oto Psisy 

2075 se lad); 

2076 Te-srPowehan = chars 

2077 rre- sp oustat = SWAIT?: 

2078 TROP LPPL = Pris 

2079 se lOc); 

2080 ifCrunin != 0) £¢ 

2O81 runnin = Oy 

2082 wakeur (&rumin) 

2083 } 

2084 swtch() $s 

2085 ifCissig()) 

2086 soto rsicy 

2087 + else ¢ 

2088 SP16()$ 

2089 re-srpolwechan = cher 

2090 reo-sriostat = SSLEEF» 

2091 TRoOSPLPPL = Pris 

2092 sPlOd)s; 

2093 swtech() 3s 

2094 + 

2095 FPS->sintes = s3 

2096 returns 

2097 

2098 7% 

2099 * If friority was low (27=0) and 
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KX there has heen 32 signals 
K execute mon-local goto to 
K the asav location. 
K (see trarl/trar.c) 
K / 

PS1G3 
aretu(is.u_esayv) ¥ 


[Ko wenn ee eee K/ 


“x 
K Wake ur sll Frocesses sleering om chari. 
xK/ 
wakeur (chan) 
£ 
resister struct rroc Krys 
redister cy is 


cnaeriy 

Fe &rerocloOds 
1 = NFPROCs 

do <« 


Cc 


ee 


if(r-Sreowehan == c) 
setrum(r >) 3 
} 
ett 
+ while(--1) 3% 


[Ko women ere nnn nen K/ 


/* 
KX Set the rrocess running? 
X arranse for it to be swarred in if necessary. 
xK/ 
setrum( re) 
£ 
resister struct froc kres 


TR = py 

Teese wChan = OF 

freo-se stat = SRUNS 

Lf (Cren-Seleri oo currerid 
runrurntst s 

ifCrunout $= O && Cre->e_flag&sSLOAl) == 0) 
runout = OF 
Wakeur (Srunmout) » 


[Ko warn nnn nnn K/ 
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2150 /x 

2151 * Set user rriority. 

2152 *%* The rescheduling flags (Crumrun) 
2153 * 15 set if the Friority is higher 
2154 %'%’* than the currently running rrocess. 
2155 */ 

2156 setrri(ur) 

2157 < 

2158 redister XKrry Fy» 

2159 

2160 PP = Ps 

21461 pos (ppm-eplery & 0377)/163 

2162 re =+ PUSER + PRr->P_nices 

2163 if(p = 127) 

21464 FP = 1273 

2165 if(p > currri) 

2166 TUNTUNE+t §¥ 

2167 PPOSPLP PL = pe 


2169 [Ko an mn */ 


2173 * This routine is called to reschedule the CFU. 

2174 kk if the calling rrocess is mot im RUN state, 

2175 * arrangements for it to restart must have 

2176 * been made elsewherers usually by calling’ via sleer,. 


2178 swtch() 


2179 <¢ 

2180 static struct Froc Xrys 
2181 register is m9 

2182 resister struct proc Xr} 
2183 

2184 if (re == NULL) 

2185 Pe = $proclOd; 
2186 /% 

2187 xX Remember stack of caller 
2188 K/ 

2189 savuluseU_rsav) » 

2190 /% 

2191 KX Switch to scheduler’s stack 
2192 xK/ 

2193 retu(rroclOd.ruwaddr) 3 
2194 

2195 loor? 

219d runrun = OF 

2197 Tr = py 

2198 re = NULL? 

2199 m = 1283 
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2297 


Ane dee dee 


9999 


2229 
2230 
2234 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
22939 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
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“XX 
Kk Search for hishest-rFriority 
K/. 
1 = NFROC?s 
do <¢ 
retty; . 
if (re == &rerocCNFROC I) 
re = SproclOls 
if(rpe-sreostat==SRUN && 
Lf Crpersr ler 
Po pp 
no = 
+ 
} 
+ while(--ids 
/& 


KX If mo Frrocess is runnebley 
x / 


ifr == NULL) 
Pos Pps 
idle()3 
soto loors 

+ 

Tr = FF 

CUPP. = ms 


7% Switch to stack 
xX his segmentation 
K/ 

retulrre-srladdr) 

sured () 3 

/X 


resisters. 


runnmable process 


Cre-se flas&sSLOAn) !=0) 


som) 


a 
? 


TRS Le pd gy 


idle, 


of the mew Frrocess and set wr 


If the mew rrocess raused because it was 


Sswarred outs set the stack 


to savudu_ssav). 


actually returns from 
the saevu. 


level to the last call 


x 

x 

x This means that the return 

K which is executed immediately after the call to aretu 
the last routine which did 
x 

x 

x 


You sre mot expected to understand this. 


K/ 
if(rre-Ssep_flaeszSSwArP) 
re-spoflag =& “SSWAF» 
aretulu.,u_ssayv) 3 
+ 


7% The value returned here has many subtle imrlications, 


* See the newrroc comments. 
*x/ 
return(1)¢ 


eane Fee C58 mene URED AONE werd OTST BETH GED QUES Stet GOED GPE GERD amee GERD cons OPES eeED CUE StuD OOrn epee goss 


er 
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2250 
2251 
2202 
22g 
2254 
2250 
lat 


2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
22635 
2266 
2267 
2268 
22d9 
2270 
2271 
2272 
227d 
2274 
2273 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2285 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2229S 
2294 
2295 
2296 
2297 
2298 
2299 
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Change the size of the datatstack resions of the Frocess. 


If the size is shrinking, 
extra core. If it’s srowinss 
@llocate it and cory the imaedey 
resisters ta 
stack hes moved. 

If there i585 mo corey 


arrange for the rrocess to be 


SWarred out after edduusting the size reauirement-- 


when it comes ins 
Recause of the sseve and 
resume after the swar in 
from this stack level, 


SSWAF 
switchs 


After the exransionys the 
the user’s stack towards 


exrand(newsize) 


ef 


int iy iy 
resister Krys aly a23 


Usui Pr POCr ¥ 
Poor sizes 
Pose size = newsizes 


a 


1 = 


a@io= pe brpladdrs 

if(n. += newsize) <¢ 
mfree(coremars m-newsizey 
returns 

} 


Savi(tueu_rsay) § 


a2 = malloc(coremarys newsize) 3 
iffa2 == NULL) < 
Ssavulu.ussav) » 
“SWAP (Cr, Ly mds 
poor flad =: SSWAFs 
switch?) 3 
/*¥ no return xk/ 
} 
Po>pladdr = a2s 
forcdi=Os aitmny itt) 


corused(aitis a2tt)s 
mfree(coremars fy aldys 
retudposrwladdr) ¥ 
sures () 


SOee Gres BEPe Core GtEe BvEt eFTs nent SUES GED wae SLOP REY DemE enen GAED CEES Gren SPOS ere: uss aute Sue came cow 
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K/ 


enoush core will be allocated. 
flats» 
Which executes the return 


control will 


Bltmewsize)s 


tne Western Electric Company, 


Just 


Breede 


it’s easy-- Just release the 
and there is corey 
taking care to reset 
account for the fact that the system’s 


caller will take cere of corvins 
Or away Trom tne date 


NY 


May 


2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
231i 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2sel 
eR FEI 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2533 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
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+ 
/* 
K/ 
#include oo/Paramehn" 
#include "../seg.h" 


#inmclude "../buf.th’ 
#imclude "../conf.h" 


/* 
KX Address amd structure of the 


KX KL-1li console device resisters. 
K/ 
struct 
{ 
int rsrs 
int rors 
imt MSPs 
int LOT 
}¥ 
LK mer rr rrr rrr err xK/ 
7% 


* In case console is off» 
K FPanicstr contains argument to lest 
K call to Fanic. 


cher KPsnicstrs 


/* 
KX Scaled down version of C Library printf. 
*K Ondy “As “21 “Ad (==Z41) Zo are recognized. 
K Used to print diadnostic information 
*K directly on console tty. 
X Since it 16 not interrurt drivers 

K all system activities are rretty much 

*X susrPended,. 

KX Frintf should not ne used for chit-chat. 

x/ 
Printf (fmtyxdlex2exnSex4axSenGaex7exBe xO eeayxby vc) 


char fmtCids 
£ 
resister char Xs- 
register Kadse cy 
ads = &sis 
loor; 
while((c = ¥fmttt) $= %H7) 
if(e == ‘\07%) 


righty Je Lions: 1976 
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2350 
esol 
2392 
2353 
2354 
2355 
2356 
2357 


2358: 


2359 
2360 
2361 
2362 
2563 
2364 


2359S 


2396 


2397 
2398 
2399 


24 12:30 1976 


unix/prfec Page 2 


returns 
Putchar(c)s 
+ 
c = Xfmttts 
if(ce == ‘dd’ iit ec == “1% F3 
Printn(kKadx,s c==’0’ 
if(e == ’s’) ¢ 
S$ = K3adxy 
while(c = xstt) 
Futchar(c) ys 
+ 
adxtty 
goto loorys 


[XK mr ee ee ee ee ee ee K/ 


/* 
KX Frint an unsigned inteser in base b. 
K/ 
Printmidms b) 
£ —— 
register ay 


iffa = ldivt(ns b)) 
Printm(as, ob) 
rutchar(lrem(m:s Ob) + °0%)¢s 


A a atatetatatataatataaatatatataamaanataeane K/ 


X Frint 3& character on console, 
xX Attemerts to save and restore device 
KX status. 2 ae 
k If the switehes sre Ov.3a11 
K ferinting is inhibited. 
x/ ; 
Pubtchar(e) 
{ 
register res s3 


re = cy 

if (SW-sinted == 0) 
returns 

while ((KL<-sx6rg0200) == Q) 
b 

“if re == QO) 
returns 

§ = KL->sMors 

KL-sxsr QO; 

KL-oxb pr res 
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2400 if(re == ‘\nm’) £ 2450 resister xXrhr?; 
Z4O1 Futchard “Nr? )¢§ 2451 
2402 rutchar(O1l77) $ | 2452 ror = bes 
2403 Putchar(O177) $ 2453 erdev("®err"s rbe->bidev) » 
2404 + | 2454 Frintf("bnZl erZo ZoN\n"y rbhe-sbublkmoy oly a2)5 
2405 eutcher (dQ) > 2455 + 
2406 KL-Sxsr = $3 eL: bal = Ae Sil cel enlaalond ont elonteateeteateatentontnatententententeaententontaenten xK/ 
2407 } 24357 
PAO 1K mmm rr ee ee x/ 2458 
2409 2459 
2410 /* 2460 
2411 * Fanic is called on unresolvabie 2461 
2412 * fatal errors, | 2462 
2413 kK It syuncss rrints "ranic! mess" and 2463 
2414 & then loors. 2464 
2415 «/ 2465 
2416 Fanic(s) 2466 
2417 char Xs 2467 
2418 < 7 2468 
2419 Panicstr = sF - — 2469 
2420 urdated)s 2470 
2421 Print (*ranic? “Z2s\n"s oF © : 2471 
2422 8 forts) 2472 
2423 . idle (); 2473 
2424 } | | . 2474 
DAO [LK mer em rm me mm me x/ 2473 
242 | 2476 
24A27 /K | | 2477 
2428 kk prdev rrints a warning message of the 2478 
2429 kK form "mess on dev x/u". 2479 
2430 6K x and vy are the maJor and minor rarts of 2480 
“431 *« the device ardument. 2481 
2432 K/ 2482 
2433 rerdev(strs dev) 2483 
2434 < 2484 
2435 : 2485 
2436 Printf( "4s om dev ZL/ZA1N\n"'»s strs dev.d_maJors deveduminor) $2486 
2437 +} 2487 
24ABB /K errr rm rr rrr rn nn | X/ 2488 
2439 | 2489 
2440 /X 2490 
2441 * deverr rrints & diadnostic from 2491 
2442 %* a device driver, . 2492 
2443 *%’* It prints the devices block mumbery» 2ADS 
2-444 kk and an octal word (usually some error 2494 
2445 *k* status resister) rassed 3s arsument, 2495 
2446 */ 2496 
2447 deverror(brs oly a2) 2497 
2448 imt khey . 2498 
2449 £ . 2499 
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2500 # 2550 /X 

2501 /xX 2551 %*%* Free the rreviously allocated srace aa 

2502 xX/ 2552 * of size units into the srecified mar. 

2903 2553 % Sort aga into mar and combine on 

23904 /X 2954 xk one or both ends if Possible. 

2505 *%* Structure of the coremar and swarmer 2555 */ 

2506 kK arrays. Consists of non-zero count 2556 mfree(mrsr sizer 3a) 

2507 * and base address of that many 2ug/7 Struct mar xXmrys 

29083 * contisduous wunitse 2998 ¢ 

2509 xk (The coremar unit is 64 bytes,» Zou? resister struct mar Xbry 

2510 * the swarpmar unmit is S12 bytes) 260 resister int ty 

2511 * The addresses are increasing and 2oél resister int ays 

2ogl2 * the list 15 terminated with the 2062 

2513 * first zero count. 2063 a= aay 

2ogl4Q KS 2564 for (br = mres be-Sm_addrws=a && bre-smesize!=O7 bett)s 
2O1LS struct mar 2069 if (bestme && (bhe-1)—->m_addrt¢(br-L)-smsize == 3) ¢ 
2016 < . 23566 (hbep-1)->musize =+ sizer 

27 char Xm sizes 2dO7 if (atsize == bp->sm_addr) { 

2018 char Xkmvaddrs 2568 (be-L)-Sm_size =+ bre-smuisizey 
2ulP + ZO? while (bhep-tmuesize) { 

2520 /K peor ren nn rer er re ee x / 2570 — betty 

202k . 2971 (be-1)-om addr = bre->maddrys 
2522 /X 2us2 (bp-Ll)->musize = bre-smosizey 
2023 6 Allocate size units from the siven 2073 } 

2u24 kK mar. Return the base of the allocated 2ul4 + 

2020 K srace. 25735 + else < 

226 kK Alsaorithm is first fit. 2476 if (atsize == bre-rmwaddr && bre-Smusize) 
2527 k/ 2577 be->muaddr =- sizes 

2028 malloc(mPp, size) . 2378 bep-lSmisize =+ sizes 

2ue2eF? struct mar kmrys 2a7? + else if (size) do ¢< 

2950 <€ . 2580 t = be~->m_addrs 

2531 resister int a3 2u8i be-smaddr = 3% 

2532 register struct mar kbr$ 2582 Se a= ts 

2533 . 2583 oe t = br-lmusizes 

2054 for (hr = mes be-Smesizes brtt) <£ 2084 be->misize = size; 

2535 if (br-Sm size += size) { 2585 | be tt; 

2536 3 = bep-smwaddrs | 2586 + while (size = t)35 

2537 bem-omwaddr =+ sizes : 2587 } 

2058 if ((bre->m_size =- size) == Q) 2488 } 

2539 do <¢ 2589 [KR mm mmr mm rr mene x/ 

2540 betty 2aIPO 

2J4l (he-Li->muaddr = brp- Sm eaddry 2aIl 

242 +} while((bre-L)-Sm size = bre-smusize)s 2592 

243 return(a) ¥ ZIPS 

25944 } 2594 

2045 } . 29S 

234d returm(O}3 LIPS 

S347 } 7 LIP? 

2004S JK HHS SSS eH eS ee See x/ 298 

249 : 2599? 
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2600 /* 2650 # 

2601 * Location of the users’ stored 2651 #include "°../rarameh* 

2602 *k resisters relative to RO. 2602 Finclude "../systm.h" 

2603 * Usaede is ueu_arOCxx]. 2653 #include “../user.h" 

2604 K/ 2654 #include "°../rroceh" 

26035 #define RO (0) 2695 #inmclude "../red.h" 

24606 #tdefine Ri (-2) 2656 #include "../seg.h" 

2607 4define R2 (-9) 2657 

2608 #define RS (-8) 2658 #define ERIT 1 7X wser error bit in FS: C-hit x*/ 
2609 #*#define R4 C7) 2699 #tdefine UMOTIE 0170000 /X user-mode bits in FS word x/ 
2610 #define ORS (-6) 2460 #define SETI 0170011 /xX SETD instruction x/ 

2611 #define R6é (-3) 2661 #define SYS 0104400 /xX sys (trae) instruction */ 
2612 4#define 7 C1) 2662 tdefine USER 020 /* user-mode flags added to dev x/ 
2613 #define RFS (2) | 2663 

2614 2664 /X 

2615 #define TRIT 020 “KX FS trace bit x/ 2665 '’ structure of the system entry table (sysent.c) 

2416 2666 xX/ 

2417 2667 struct sysent { 

2618 2668 int county /k argument count X/ 

2619 2469 imt (Kealld dds 7X mame of handler x/ 

24620 2670 + susentlé4i 3 

2621 26/71. f/% Sooo —Se SSS eS eSSS x/ 

2622 2672 

2623 2673 /* . 

24624 2674 * Offsets of the user’s resisters relative to 

2629 . | 2675 *% the saved rO. See red.h 

2626 | 2676 */ 

2627 26/77 char resloc(9 J 

2628 | 2678 < 

2629 | 2679 ROy Riv R2s RSs R4e RSs Réy R7e RES 

2630 3 7 2680 }3 

2631 | 2681 JK mmm mmr mr rr rr rrr enn */ 

24632 2682 | Ps 

2633 2683 /*X _ s on, See 
2O34 2684 * Called from 140.5 or 145.5 when @ rrocessor-trar occurs. 
2635 3 2685 xk The arsduments are the words saved on the system stack 
2636 2686 *k hy the hardware and softwere during the trar rrocessing. 
2637 . : 2687 *%* Their order is dictated hy the hardware and the details 
2638 2688 *k* of C’s calling seauence. They are reculiar in that 

2639 2689 * this call is not ‘by value’ and chansted user resisters 
2640 2690 * det coried back on return. 

2641 2691 * dev is the kind of trar that occurred. 

2642 2692 KS 

2643 2693 trar(devy sry rly ness rOs For Ss) 

2644 2694 £ 

2649S 2695 resister is ay 

2646 2696 resister struct sysent xKcallr;s 

2647 2697 

2648 2698 savfr() 

2649? | 2699 if ((CrpsSUMODE) == UMORE) 
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2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
—B716 
2747 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2734 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 


2742 


2743 
2744 
2745 
m7ASG 
2747 
2/748 
2749 
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dey =! USER: 
Wel ard = Bros 
gswitch(dev) <¢ 


/% 


Trar mot exrected,. 
Usually e@ kernel mode bus error. 
The mumbers rrinted are used to 
find the herdware FS/FC as follows. 
Call mumbers im octal 18 bits? 
addpess_ofwisavedirs = 
(ke6K0100) +. ars - O0140000% 
address _ofusavedwirec = 
address ofisaveduirs - 23 


HM HM Me MK HM MK 


K/ 
default: 
eraintféC*ked “On "9 Kkad)y 
erinté (ares AON" y S&F) ¥ 
Printf ("trae ture Zo \n"»s devids 
Famiet"trar")¢ 


case O+USER? 7X bus error XK/ 
i = SIGRUS: 
break ¢. 


x 

KX If illesel instructions are mot 

*¥ being caudht and the offending instruction 
Kis a SETI, the trer is isnmored,. 

xX This is because C Froduces a SETI at 

K the besinning of every rerosgram which 

KX will trae on CPUS without 11/45 FFU. 

K/ 

case 1+4USER? /* illesal instruction x*/ 


if(fuiword(rc-2)==SETO && u-u_sismalCSIGINSJ==0) 


goto outs 
i = SIGINS; 
‘break. > 


case 2tUSER! /xX brt or trace x/ 
i = SIGTRC: 
bresk » 


case S34tUSER? /x iot xX/ 
i = SIGIOT»> 
breaks 


case StUSER! /k emt */ 


i = SIGEMT; 
breaks 
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2750 

2/731 case S6tUSER? /xk sus call */ 

27 d2 Useluierror = OF 

27S Pps =& “ERITS 

2794 callr = &susent i fuiword(rc-2) 807713 
27S if (calle == susent) <{ /k indirect */ 
27396 ae = fTudword(ro ld: 

27357 eo sb 24 

27358 iL = fuword(a) ys 

27359 af (Ci & *O77) != SYS) 

2760 Lo= O773 /X illesal x/ 
2761 calle = &suyusentlis077 41 

2762 for¢(i=08 itecallre-scounts i++) 
2/763 : WeltiiaraCid = fuword¢a =+ 23 
2/64 © + else 

2765 for(i=O% iteallre-scounts itt) £ 
2766 UeliwearsCid = fuiword(re) 
2/767 mace Dy 

2768 } 

2/79 } 

2/7/79 Welidire = weuiarslOds 

2/7i traridcallre-scall); 

o7la ifCusulintfls) 

2/7? | Ureuierror = EINTRSs 

2774 if€u.s,ulerror = 100) ¢ 

Ce he if fureucerror) ¢ 

2/76 eo =} ERTTs 

2777 | rO = theu_errory? 

2778 + 

2/7?9? gota outs 

2/780 + 

2781 i = SIGSYS3 

2/782 break. § 

2783 

2784 /X 

2785 Xk Since the floating excertion is an 

2786 xX imerecise trary, s user senerated 

2787 Kk trar may actually come from kernel 

2788 Kk mode. In this cesey 3a signal is sent 

2789 K to the curremt Frrocess to he ricked 

2790 *X ur later, 

2791 x / 

2792 case 83 /X floating excertion X/ 

2779S esidgmal(u.s.u_rerocreys SIGFFT)s 

2794 returns 

2793S 

27P6 case 8StUSER: 

2797 i = SIGFFT?s 

2798 bresk.s 

2799 
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2800 /xX 2850 fk See SSeS Se SSeS SSS x/ 
2801 *X If the user SP is below the stack segments 2851 

2802 xX drow the stack. automatically. 2852 /*X 

2803 *K This relies on tne ability of the hardware 2853 *k monexistent system call-- set fatal error code, 
2804 *X to restart a half executed instruction. 2854 x*/ 

2805 xX On the 11/40 this is not the case and 2855 nosys() 

2806 Kk the routine baeckur/140.s mays fail. 2856 € 

2807 *X The classic examrle is om the instruction 2857 Uelu_error = 100» 
2808 x Cmr —-(sr)y-(sr) 2858 } 3 
2809 K/ 29699: JR. SHR SSS SSS SSeS Se See SS = K/ 
2810 case 9tUSER: /k sedmentation excertion x/ 2860 

2811 a = spy 2841 /*X 

2812 if (backurp(u,u_ard) == QO) 2862 * Ignored system call 
2813 if(sgrow(a)) 2863 */ 

2814 goto outs 2864 nmullsys() 

2815 i = SIGSEG:s 2865 <€ 

2816 bresky 2866 } 

2817 } 2606/7 (XK =e SS$-S<=— Se SSeS xK/ 
2818 Psignmal(u.,u_eroces 1)% | 2868 

2819 2869 

2820 out? 2870 

2821 if(issis()) . 2871 

2822 Psidgd)s 2872 

2823 setreriCueu_Procr)s | : 2873 

2824 } : ) 2874 

2825 LK mmm mmm rr rr rere */ 2875 

2826 2876 

2827 /X 28377 

2828 * Call the syustem-entry routine f Cout of the 2878 

2829 * susent table). This is @ subroutine for trary and 2879 

2830 kK mot in-line, because if 38 sisnael occurs 2880 

2831 * during rrocessing,s an (abnormal) return is simulated from 2881 

2832 * the last caller to savutasav)s if this took rlace — 2882 

2833 kK inside of trary it wouldn’t have a chance to clean uP. 2883 

2834 x | 2884 

2835 * If this occursy the return takes rlace without 2885 

2836 kk clearing u_intflgs if it’s still sets trar 2886 

2837 xX marks an error which means thet a system 2887 

2838 k call (like read on 2 tyurewriter) got interrurted 2888 

2839 Kk bye &@ Ssismal. 2889 

2840 */ 2890 

2841 trarilcf> —— BBP 1 

2B42 imt (CxXPI0)s 2B92 

2843 { 2B93 

2844 2894 

28435 ueuwintfld = Lys 2893 

2B46 S8VUCU+U_ASayv) F 2896 

2847 (KP) CDs | 2897 

2848 Ueliintflda = Os 2898 

2B49 } | 2899 
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2905 * This table is the switch used to transfer 


2906 * toa the 
2907 -* Esch row comtsins the 


2908 %K and @ rointer to the routine. 


29OP KS 
2910 aint 
2oli <€ 

29 L2 Oy 
2713 Oy 
2914 Oy 
eLIFLS a 
aP16 Dy 
Pl? ey 
2918 Oy» 
2919 Oy» 
2920 oy 
2921 2Y 
2922 ly 
oS oy 
2924 | ly 
2928 Oy 
LP 2H oy 
2927 Dy 
2928 oy 
2929 1» 
2730 oy 
LOSI oy 
2 P32 Oy 
ZIP SS ay 
2934 Ly 
2P3S O» 
2I3S6 Oy» 
2957 O» 
2938 oy 
2939 Oy 
aPA4AOD Ly» 
294 O» 
2942 1» 
2294S 1» 
2P44 ly 
2945 Or 
2946 Oy 
2947 Oy 
2948 Oy 
2IPAD 1» 
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&null sys y 
&rexity 
&fork » 
ered y 
&Writey 
SOF @ry 
&close» 
Sweity 
&crestys 
Slinky» 
Sum Link» 
SEXxXEC ¥ 
&chadiry 
&Stime » 
&mk nod ¢ 
&chmods 
Schownys 
&sbresk.» 
astatys 
&5eek » 
&setridy 
Esmounmt y 
Ssumourst y 
&setuidy 
&sHetuidy 
&Estime» 
se Lrace y 
RMNOSYS ¥ 
&fstsat» 
SMOSYS » 
anulisusy 
&sttyy 
S4ttuy 
ENOSYS » 
amiceys 
asslery 
SSYMC y 
akilly 


“/*X inoreraetive 


under licence from the Western 


J. Lioms:s 1976 


OOS & CHD bre © 


hou HOR WO EP OW HOR OR OH OH OW OR OH 


Hod od i HO WoW Gb uo ot oh HOH OH OH WO TH HOR 


BFFrTrOrFTrTiate routine for rrocessing 38 system call. 
number of ersduments exrected 


indir */ 
exit */ 
fork X/ 
read K/ 
write */ 
orem K/ 
close x*/ 
Wait */ 
creat x/ 
link X/ 
unlink */ 
exec K/ 
chdir x/ 
Lime */ 
mknod x/ 
chmod xK/ 
chown */ 
break xX/ 
stat x/ 
seek x*/ 
detrid */ 
mount */ 
umount K/ 
setuid x/ 
setuid */ 
stime X/ 
rtrsece x/ 


«KS 
smdate x*/ 
stty *K/ 
sttyu x/ 

“ OK/ 

mice x/ 
sleer X/ 
sume xK/ 
kill x/ 
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0 


2PSO Oy 
2°51 Oy 
2952 Oy 
2953 O» 
2954 Oy 
2955 Ly 
2756 4y 
29357 Os 
2938 Or 
2959 Oy 
2960 oy 
2961 Oy 
2P7h2 O» 
2963 Oy» 
2964 Oy» 
2963 Oy» 
2956 Oy» 
aPb7 Os 
2948 Oy 
aP S&P Or 
2970 Oy 
2971 Oy» 
2972 Oy 
2973 Oy 
2974 Oy 
2P7S Os 
2P?76& +3 
22978 

2°79 

2980 

2PB1 

2982 

2783 

2984 

2985 

2986S 

2987 

2988 

2989 

2990 

2951 

2992 

2993 

2994 

29935 

2996 

le aed 

2998 

2999 
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asetswitys 
EMOSYS » 
SMOSYs » 
Scie y 
SPLrey 
&LIMES ¥ 
Se raofils 
SMOSws y 
&SeEtLsidys 
&setsids 
&ssidy 
aNMOSWS ¥ 
SMOSYS » 
SMOSYS » 
EMOSUS » 
SNOSUS » 
SNOSYs y 
SMOSYS ¥ 
SMOSsys y 
EMOSYS ¢ 
SMOSUS ¥ 
SMOSUS » 
&MOSYS » 
SMOSws - 
SNOSUS y 
EMnosys 
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the Western 


Hou Ho i oR WP GT WU HU Hon UW Ho UU oH U HH WO 


switch */ 


times X/ 
rrof xX/ 
tiw x7 
setsid x/ 
getsid xX/ 
sig k/ 

~ KS 
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35000 # 3050 na = OF 

3001 #include ".+/rarameh* 5051 ne = OF 

3002 #include "../systm.h" 3052 while(ap = fuword(u.,-u_argfiJ)) < 
3003 #include °../user.h" 30353 natty 

3004 #include "../rroceh" 3054 if€arp == ~-]) 

30035 #include "../buf.h" 3035 qdoto hady 

3006 #include "../resg.h" 3056 ueu_arsaCid =+ 23 

3007 #include °../inode.h" 3037 fordss) £€ 

3008 3058 c = fubytelCartt) s 
3009 /* 3059 iffc == -1) 

5010 kK exec system call. 3060 soto had; 
3011 * Because of the fact that an I/0 buffer is used 3061 Kertt = cy 

3012 * to store the caller’s arduments during execyr 3062 netty 

3013 * and more buffers are needed to read in the text files 3063 if(me = S10) {- 
3014 kk deadly embraces weiting for free huffers are rossible. 3064 Ueterror = E2RIG; 
3015 * Therefore the number of rrocesses simultaneously 3063 soto had; 
3016 kK running im exec hes to be limited to NEXEC. 3066 } 

3017 x/ 3067 if(e == 0) 

301393 tdefine EXFRI ~1 3068 break. ¥ 
3019 3069 } 

3020 exec() 3070 3} | 

3021 <£ 3071 if((ne&l) t= OO 

3022 int aFy nay mer Xbrs 5072 Kert¢t = O03 

3023 imt ts» ds» sery ! 3073 netts 

3024 register cy Kip? 3074 + 

3025 resister cher xXcrys 30735 

3026 extern uchars 3076 /k read in first 8 oxytes 

3027 3077 x of file for segment 

3028 /* . 3078 KX sizes? 

3029 K Pick ur file names 3079? KX wO = 407/410/411 (410 -> RO text)? (411 -> ser ID) 
3030 X and check various modes | 3080 KX wl = text size 

3031 kX for execute Fermission . 3081 *X* w2 = dats size 

3032 x/ 3082 & w3 = bss size 

3033 3083 K/ 

3034 lr = mameiC&uchary O)3 3084 

3035 ifCir == NULL) . 3085 Usubase = gu,uarslods 

3036 returns | | | 3086 Welscount = 85 

3037 whileCexecent == NEXEC) 3087 ueu_offsetCLid = Os 

3038 sleer (%execnts EXPRI) 5 3088 uesu_offsetflOo] = O3 

3039? execnttts 3089 ueuisesfles = 135 

3040 be = setblk CNODEYV) s 3090 readi(ip) § 

3041 iftaccess(iry»y IEXEC) ti Cir-si_mode&IFMT) !=0) 3091 Ueuisedfles = OF 

3042 goto bads 3092 if Cus.uerror) 

3043 3093 foto had? 

3044 /* 3094 ser = QO 

SO4S Kk Pack ur arguments into 3095 if(us,ularsCOJ == 0407) 

3046 *¥ allocated disk puffer 3096 Uelars[C2] =+ ue ucarsClidys 
3047 K/ 3097 . ueuiarslCij = OF 

3048 3098 + else 

3049 Cr = fr-sbladdr: 3099 iffueuclarsCO] == 0411) 
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3100 
S101 
3102 
S103 
3104. 
S105 
3106 
S107 
3108 
S109 
SL1LO 
SLid 
Site 
S113 
SLI4 
SLI 
S1ié 
S117 
SLL8 
S119 
S120 
Lei 
Sl2e2 
$123 
S124 
S125 | 
S126 
S127 
$128 
3129 
S130 
3131 
$132 
3133 
5134 
S135 
3136 
3137 
3138 
3139 
3140 
S141 
S142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
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sertty else 
LfCueucars(lCOd t= 0410) ¢<¢ 
WUseuierror = ENOEXEC? 
Goto bad? 
} 


ifCusuwarsChdl!=O88Cir-Si_flagd&aI TEXT) ==O088ir-si_count!l=1)¢ 


Walilerrar = ETXTRSYs 
soto bads 
+ 


7X 

xX find text and date sizes 
xX try them out for rossinie 
xX exceed of max sizes 

x/ 


ts = (CCusularslLldt+63) 226) & O17773 
ds = (CCueucvars(l2dtueularsgl3d¢+63)226) & OL7775 
iffestabur(tss dsr SSIZEy, ser) ) 

goto bady 


7X 
KX allocate and clear core 
KX at this roints committed 
K to the mew imase 
K/ . 


WelFroflo gd = O03 

“freed)s 

expand CUSTIZE 3s 

“ae@lloc(ip) > | 

ce = USIZE+ds+SSIZEs 

expand (c)s 

while (--c == USIZE> 
clearses(u.uproce-srladdrtc) ys 


/*¥ read im date sedment x/ 


estabur(O,s dsy O» O73 


lel bese = OF 
ueioffset£1] = O20tu.u_arslLidys 
Welticounmt = us-uclars(C2 5 


reagiCireds 


1X 
KX initialize stack segment 
x / 
lisutsize = tss 
Ustlidsize = dso35 
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31350 euissize = SSIZE: 

$151 UeUuSser = Sery 

3152 estabur(usultsizey, weu_dsizgey wee 

31353 Cr = pp-sbladdrs 

3134 ar = -me - maxk2 - 43 

3135 WeltarOLRé] = ars 

3156 suword ars mad; 

3157 c = -ney | 

3138 Wwhile(nma--) <€ 

S127 suword(ar=+2, c)3 

3160 do 

31ié6l subute (edt: Ker): 

3162 while (xcrt++) 

3163 > 

3164 suword(art2, -1)s 

3143 

3156 “1X 

3167 xX set SUID/5GIN erotectionsy if m 

3168 x/ 

31459 

3170 if (CueuPeroce-or flad&sSTRC)==0) 

31710 LifCire-Si_mode&ISurg) 

3172 iffuseucuid != QO) 

3173 , WUeWwuid = 

3174 We POCcr= 
~~ 3175 } 

3176 if@ir-Si_mode&ISGin) 

3177 Weigid = Leo si_gi 

3178 © >} 

3179 

3180 /*% clear sigs, regs and returm x/ 

3181 . , 

3182 c = ips 

3183 for¢ir = gu,u_sisgnmalfOJs aif «= &ueu 

3184 if((kir & 1) == QO) 

3185 Kir = O% | 

3186 for(cr = &resloc([OJ' cr = &reslocl 

3187 ueugrOLkertt] = OF 

3188 usuarOLR7] = 03 

3189 for(ir = &u.u_fsavlCOJd; if «= aueulf 

3190 Kie¢+ = OF 

31Pi if = ce 

3192 

3193 bed? 

3194 LPutcip) § 

3193 brelse (br) 

3196 ifCexecnt == NEXEC) 

5 wakeur (zexecnt) 3 

3198 execnt—-— 35 

3199? } 
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S6S5127@7 Useuliserdy 


Qo trecing 


Lem liuids 
SPU = be-eicluids 


dy 


~SisgmalENSIGIs iptt) 


6]5) 


s3avL2513) 
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ra 

x/ 
8 ¥ 

xK/ 
look at. 


Mey 24 12336 1976 wunix/sysli.c Fase 
3200 [K wr rrr nmr nr rrr rrr 
3201 

3202 /K exit system calli 

3203 kK rass hack caller’s ro 

3204 k/ 

3205 rexit) 

3206 

3207 

3208 ueuargCOJ] = wueu_arOCROd] <x 
5209 ex1tdds 

3210 } 

Sell SK mmm mm mn nn en rn nr nen 
$212 

3213 /k Release resources. 

3214 '’* Save ue area for rarent to 
3215 *k’* Enter zombie state. 

S216 kK Wake ur rarent and init Processes,» 
$217 * and disease of children. 
S218 */ 

3219 exitd) 

3220 £ 

S221 register int Key ay 


3222 resister struct rroc Xr; 
3223 

3224 WeUrroce-sp_iflad =& “STRCs 
S225 for(a = Su,-u_sigmallCOlJ?s a = 
S226 Xat+ = 13 

3227 forCa = &ueuLofilelLOl]s a 
3228 iffa = xKa) < 

3229 Xa = NULLS 
3230 closef(a)s; 
3231 . + 

3232 Lrutdu.eu_edir)s 

3233 xfree ()3 


3234 a= malloc(swarmar, 1)93 
3235 if¢a == NULL) 
3236 ranic("out of swar" 


3237 re = getblk(swardev: 3)3 


32358 heoryl&uy prsbhuwaddry, 256) 3 
3239 bwrite tr); 

3240 Q = Usui Procrs 

3241 mfree(Ccoremary aQ-SPU_sizes 
3242 Q-srladdr = ay 

3243 Q-sF_stat = SZOME: 

3244 

32435 Lloor? 

3246 for(e = &rroclOds - «= &Froc 
3247 ifCa@-SPlpPpid == p-rplpid) < 
32486 Wakeur(&erocLlid)s 
3249 wekeur (Cr) ¥ 


&u.-u_sisnalCNSIGIs ) 


= &u.uofileCNOFILEI3 


dy 


ani Pladdr) » 


CNPROCI$ p++) 


att? 
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3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 

258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
32914 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 


for(r 


unix/sysl.c Page 6 


SeroclLoOd:s - <= &erocDCNPROCIJs: ett) 


lf CQ@-SPLlreid == porrp_lppid) 


+ 


swtch()y 


POOP lpPid = Ly 
if (p-sp_stat == SSTOF') 
setrun(r)y» 


“* no return X/ 


+ 
Q-SPLPPid = 
40to loor: 


/* Wait system 


mane nn - HH K/ 


call. 


k Search for a terminated (zombie) childy 


KX finally lay it to rest» 


and collect its status, 


KX Look also for storred (traced) childreny 


*¥ and rass hack status from them. 

X/ 

wait) 

{ 
register fy xhr; 
redister struct Froc Xp; 
f = OF 

Loors | 
for¢(e = &rroclOIs fp = &rrocCNPROCI: ftt) 
if€p-Splrprepid == uesulrrocr-srwlpid) <€ 


f++3 


if(€rp-Seoistat == SZOME) 


mfree(swarmars ls 


WeuarOCRO] = fr-splpidys 

he = bresad(swardeyys fr-srladdr)y 
fds 

pote ostat = NULL? 

Porte lrpid = OF 

P-SPlprpid = OF 

Poop sig = OF 

Poop  ttyp O; 

poop oiflag = OF 

Po= Ope->bladdr: 

UeuicstimelO] =+t pe-su_estimelOls 
deadd(ueu_cstimey eo-seulestimelld)s 
deadd(us,u_estimey rr-suwstime) § 
uUsucutimelOd =+ po eulcutimelOls 
dreadd(useu_cutimes Fo-su_cutimelid) » 
deadd(useulcutimey Prruutime) y 
UeuarOCRid = e-sularslOds 

brelse (nr) s 

returns 
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3300 + . 

3301 if(re-Se_wstat == SSTOF) <£ 

3302 if((e-se_flesgSwreti) == 0) ¢< 
3303 r-spoflad =! SWTEDs 
3304 usu aPrOLCRO] = por trplrids 
3305 usu srOCRid = (Cr-srp_sist<8) 
3306 OL7 73 
3307 | returns 

3308 + 

—6 3 S09 peop flag =&% “(STRCiSWTED) + 
33190 setrundr) gy 

3311 + 

3312 + 

3313 if(f) <« , 

3314 sleer(u.,u_procres FPWAIT) $ 


ZITA data lanrs 


3316 + 

3317 us,u_error = ECHILDTs 

3318 } 

BSLD LK ee mr rr rr ree x/ 
3320 | 

3321 /K fork system call. x/ 

3322 fork) 


S323 £ 

3324 register struct proc Keely Xre2»s 
53235 

535268 Pl = U+-ULProcrs 

3327 for(rp? = &rroclO]s e2 < &rrocCNPROCITs r2t+t+) 
3328 if(r2-se_stat == NULL) 
3329 goto founds 

3330 Ueu_error = EAGAIN: 

3331 soto out? . 

3332 

3333 found: 

3334 if(newrroc()) < 

3335 useu_arOCRKO] = Fi-telrids 
3336 Us-u_cstimelLOJ = O3 

3337 ustu_estimel1] = O- 

3338 Useu_stime = O¢ 

3339 | | uUsu_cutimelO] = O¢ 

3340 WUeuicutimeLid = Os 

3341 Weuutime = OO» 

3342 return 

3343 + 

3344 weuerOCRO] = p2-lrplrids 

33435 

3346 outs 

3347 useuarOCR/7J] =+ 23 

3348 } 

S349 /K wr rrr rr rrr cen K/ 
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3386 bisder?’ 
3387 exrand (ri) 


3388 8 = Weuprocr-srPpladdr + my 
3389 m= Ueu_ssizes 

3390 while (m--) <¢ 

S391 a-—F 

3392 coryused(sa-d» 3)? 
3393 } 

3394 while (d--—) 

3395 clearses(--a)y» 
3596 } 

S397 SK mmm me ee ee er er eee ee K/ 
3398 

3399 
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3350 

3351 /X break system call. 

3352 *%’ -~ bad elannming? “bhreak" is a dirts word in C. 
3353 xK/ 

3354 sbresk() 

3355 <£ 

33556 resister Bf me ds 

3357 imt is 

3358 

3359 “/* set m to mew data size 

3360 X set d to new-old 

3564 Kk Set m to mew totel size 

3362 x / 

3363 

3364 m= (CCueularslCO]+63)526) & O1777)3 
3365 if Clu.u.jser) | 

3366 mo=- meed(ueultsize) * L283 
3367 if (nm <= 0) 

3368 | m= OF 

3369 gdg=rmi- ueuldsizes 

3370 m =+t USIZEtu.uissizes 

3371 ifCestabur(useu_tsizey usudsizetdy weussizer u.u_ser)) 
3372 a returns | 
3373 Ueuidsize =+ cd 

3374 if(d = 0} 

3373 goto bidserys 

3376 9 &@ = u.uLPTrocresr_addr tom - useu_ssizey. 
3377 1 = my 

3378 m= uUeu_ssizes 

3379 while (n--) <¢ 

3380 coryuses(a-dy a) 

3381 att+3 

3382 } 

3383 expand (ids 

3384 returns 

3385 


NY 
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3400 # 3450 /K ere r teremen xK/ 
3401 /* 3451 

3402 * Everything in this file is 3452 sdetuidt) 

3403 * 38 routine imrlementing 3a system call. 3453 + 

3404 */ 3454 

3405 3455 ueu_arOCRO].,lobyte = u.u_ruids 
3406 #include "../raram.h* 34356 usu_arOCRO].hibyte = u.u_uidgs 

3407 #include "°../user.n*® 3457 } 

3408 #include "../resd.h" SAOS 7k See See SS Se See ee K/ 
3409 #include °../inode.h" 3459 

53410 #include "../systm.h" 34460 setsid() 

3411 #include "../rrocen" 3461 <€ 

3412 3462 register dids 

3413 setswit() 3463 

3414 <£ 3464 gid = ueu_arOlCROd.lobytes 

3415 3465 if(ueu_rgid == gid.lobyte |: suser d)) 
3416 idsti-arOCROI = SW-sinteds 3466 Welisid = sid 

3417 } ; 3467 Usursgid = sid; 

3418 [KK wer mmr mn nr rrr rr rr reno K/ | 3468 + 

5419 . 3469 } 

3420 stime() 54/0 fX HS 3455S S554 SS345SS5S> K/ 
3421 <€ 3471 

3422 3472 sgetsidd) 

3423 ue arOCRO] = timelOd, 3473 < 

3424 ueuiarOCR1] = timeLliys 3474 

S425 } . 3475 ueu_arOCRO].lobyte = ueu_rsids 
S426 [XK See eee aS eS x/ 3476 ueH_aroCROlJ,hibyte = u-u_sids. 
3427 3477 } 

$428 stime() S478 [RK mmm mm rr rr rrr x/ 
3429 £ 3479 

3430 | | 3480 sdetrid() 

3431 if(suser()) £€ 3481 <¢ | 

3432 timeCOJ] = ueurarOCRods ; 3482 UeUUBrOCRO] = usulrrocr-srlrids 
3433 timelid = ue-u_arOCRids 3483 } | - 
3434 wakeur (tout) § 7 | SAGQ LM mr enn me me cre crn a ee enn ae ee oe K/ 
3435 } : 3485 

34346 } . 3486 sume) 

4 BZ LK mere re crn cs cre et ae cr en ee ae ene ote eee et a x/ , 3487 <€ 

3438 3488 

3439 setuid?) 3489 urPdate(); 

3440 <¢ 3490 } 

3441 redister wids SADT LK mre ee me en ween ns eee as es en ae x / 
3442 3492 

3443 Wid = ueuarOCROJ].lobyte: 3493 mice?) 

3444 ifCu.ucruid == wid-lobyte i: suser()) ¢€ 3494 <£ 

3445 Ueliuid = uids 3493 redister ry 

3446 UeleProcr-sPpluid = wids 3496 

3447 UeUirTuid = wids 3497 m = ueuarOCROl3 

3448 + 3498 if (nm = 20) 

3449 } 3499 m = 203 
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3500 if(m = 0 && !Isuser()) 

S501 m= OF 

3502 UseUOWFPTOCROSPLmice = rms 

3503 } 

SOQ LM mr mr rr rn re re rr re re mec me enn ee ce ee cen ae ee K/ 
35035 

S906 /X 

3507 kK Unlink system call. 

3508 KK ranic? unlink -- "canmmot harren" 
3509 x*/ 

3510 unlink?) 

3511 <¢ 

3512 resister Kirs Xrr ys 

3513 extern uchars 

3514 

Anis eo = mamei¢Ruchary ?)s 

3516 if(er == NULL). 

3517 returns 

33518 rreleCrr > > 

3519 ifr = idet(rpr-ri_devy, u.u_demt.eu_imo) 3 
3520 ifCirp == NULL) 

3521 ranic(C"umlink -- iget")3 
3522 if((ip-Si_mode&sIFMT)==IFDIRK && !suser()) 
3523 soto outs 

3524 ueuoffsetCljJ =- DIRSIZ+23 

3525 Usu_base = &u,u_dent3 

3526 ueu_count = DIRSIZ+23 

3527 usetudent.uiino = OF 

3528 wWritel (rr) §s | 

3529 lems icnlink-—» 

3530 ife-si_fleg =i IUFTI» 

3531 

3532 outs 

3533 LPutCpr) 5 

3534 Lreut Cir) > 

33535 3 

3536 [Kwon err rn eee x/ 
3337 7 

3538 chdir(d) 

S539 £ 

3540 register Kir; 

3541 extern uchaers 

3542 | 

3543 ir = namei(&uchary 0)» 

3544 if€ir == NULL) 

3S4S returns 

3546 Lf((irp-Si_mode&gIFMT) !'= IFRIR) <{ 
33547 Urelierror = ENOTOIR: 
3548 bad} 

3349 LPULCLIF) § 
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3550 return? 

3551 } 

3552 iffaccess(iry, TEXEC)) 

fe bw Be soto bady 

3554 treutCu,u_cedir)$ 

S555 MeWiedir = ips 

S556 Prele Cir) s 

3557 } 

SSSGB PK mmm mr ee ee xK/ 
3559 

3360 chmod) 

S561 

33562 register Kir; 

3563 

3564 if (Cir = owner()) == NULL) 

3565 returns 

33566 ip-si_mode =& %07777;3 

3567 if (u.uuid) 

3568 WeularsCid =& VYISVTXs 

3569 ip-sicmode =| ue-ulars013&077773 
3570 ten-sincfles =: TUPI 

S3S71 Lreutcirds 

3572 } 

SASS SK SESH see SSS See ——<- x/ 
3574 | 

3575 chown) 

3576 <£ 

3577 resister Xi; 
3578 

3579 if Cisuser() fi (ip = owner d)) == NULL) 
3580 returns 

3581 ip-Sicuid = ueucarsCid.lobytes 
3582 le-Sri.tsgid = ue-u_ars(Cild.hibyvtes 
3583 ip-sicflagd =i IUFLT 3s 

3584 Treutdirp)s 

3585 } 

BBG PK men ee rere ers ne er me me en ce x/ 
3587 

3588 /xX 


3589 * Chanse modified date of file: 


35990 * time to rO-ris sys smdster file 

3591 * This call has been withdrawn because it messes uF 
3592 '’ incremental dumps (rseudo-old files aren’t dumped). 
3593 '’ It works though and you can uncomment it if you like. 
3594 

3595 smdated) 

3596 

3597 register struct inode Xirs 

3598 register int Xtry 

3599 int tbufC2 75 
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3600 
3601 if (Cir = owner ()) == NULL) 
3602 returns 
35603 ie--si_flasg =i IUPDs 
3604 te = &tbhufC2]3 
3605 K--tre = ueularOLCRidys 
3606 K--te = useu_arOCROds 
53607 Llurpdat(lirs tredys 
3608 ip-si_flag =& “IUFDs 
3609 Leutdirdy 
3610 } 
3611 X/ 
BEL LM meme mr rr me en a mr re cer ee ce ee ne ano x/ 
3613 
3614 ssigd() 
3615 < 
3616 resister a3 
3617 
3618 a= ureutarsgloOds 
361° if¢aect=0O [1 @f=NSIG $1: @ ==SIGKRIL) ¢ 
3620 Ueliierror = EINVAL» 
3621 returns 
3622 } 
3623 useu_arOLCROI = u.u_sisgnallaldy 
3624 usu sisgnalflad = ueu_larsCids 
3625 if (ueULPrTocr—-srUSsig == 3) 
3626 Wei PPOCR(SPuSsig = OF 
3627 } 
6628. 7K Hee eS e eee ee See x/ 
3629 
3630 kill() 
3631 < 
3632. resister struct rroc Xry xa; 
3633 register ay | 
3634 int 3 
3635 
3636 f = O% 
34637 a= wueu_arOCROJ3; 
3638 Q = Us rOCcr 3 
3639 for(e = rroclO]3 fF <= &rrocEINFPROCITs ett) € 
3640 if(r == @) 
3641 continues 
3642 iffa '= 0 && p-trelpid != 32) 
3643 continue» 
3644 if (a@==O838Cr-Sputtyr lence ttyr iret =keroclid) > 
3643 | continues 
3646 ifCueuwuid I= 0 && ueuluid != p-trluid) 
3647 continues 
3648 Fttys 
3649 rsignmaldrs ueu-arslO]) s 
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3450 
3651 
3652 
3653 
3654 
3655 
3656 
36357 
3658 
3659 
3660 
3661 
3662 
3663 
36454 
3663 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
S473 
3674 
3675 
3676 
5677 
3678 
3679 
3680 
3681 
3682 
3683 
3484 
3685 
3686 
53687 
3488 
3689 
3690 
3491 
3692 
3693 
3694 
3695 
3696 
3497 
3698 
3&99 
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} 
if(f == 0) 
Ueu_error = ESRCHs 
} 
[Km rrr re */ 
times () 
{ 
register Xry3 
for(r = &u,u_utimes F Siueu_utimetés) € 
suword(u.u_arsglO]» xkett) 3 
Uets_arseCO] =+ 2s 
+ 
+ 
L&R mr rr rr rt rr er mene x / 
Profil”) z 
£ 
ueurroflO] = ueu_arslO] & “ls /xk base of sample buf ¥/ 
UeuerprofC£lI = usucarslids /*® size of same X/ | 
ueurerofC2] = ue-u_arsleds /* we offset xK/ 
uUsturroflL3] = Cu.,ucarsC3I251) & OF 7777+ /X ee scale X/ 
> 
1 dp iietoeteateateetontententedienteetaatestenteneneateneatenmetaneten x/ 
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3700 # 

3701 #include "../rParams.h" 
3702 #include "../systm.h" 
3703 #include ".,/user.n* 
3704 #include "../rfroceh" 


3705 

3706 #define UMODE 0170000 

3707 #define SCHMAG 10 

3708 

3709 /X . 
3710 kK clock is called straight from 
3711 %® the real time clock interrurt,. 
3712 *X 

3713 #6 Functions? 

3714 *%’ rerrime clock 

S713 *% cory *SwWwitcnes to Gisriss 

3714 * imrlement callouts 

3717 kK maintain user/system times 
3718 k* maintein date 

3719 xk ferofile 

3720 K tout wakeur (sus sleer) 

S721 %’ lightning bolt wakeur (Cevery 4 sec) 
37/22 Kk alarm clock signals 

3723 *%’ Jab the scheduler 

3724 K/ 

3729 Clock(devs sry riy mes» TOs Fey FS) 
3726 

3727 register struct callo Xely, xr23 
3728 resister struct fFroc Krr; 

3729 

3730 /* 

3731 xX restart clock 

3732 x/ 

3733 

3734 Klks = O1153 

3735 

3736 1* 

3737 KX disrley resister. 

3738 xK/ 

3739 

3740 disrlayw) 

3741 - | 

3742 /* 

3743 kK callouts 

3744 KX if money Just return 

37AS K else urdate first non-zero time 
3746 K/ 

3747 

3748 if(calloutlOd.c_funec == 0) 
3749 soto outs 


Rerroduced under licence from the Western Electric Comranuy NY 
Coryrishty J. Lionss 1976 


sheet 37 


Mav 24 12236 1976 wunix/clock.c Fase 2 


37350 2 = &calloutCOl: 

3731 WhileCr2-Ssc_timet=0 &% F2-Scufune! =0) 
3732 Potty 

37353 r2-Sowtimenns 

37354 

3755 /X 

3736 KX if FS 15 highs Just return 

37357 x/ 

3758 

3739 if((rs#0340) I= 0) 

3760. goto outs 

3761 

3762 /X 

3763 K callout 

3764 x/ 

2765 

3746 sr lhc)5 

3767 iffcalloutCOl].c_time <= 0) ¢€ 

3768 Pl = &callout[Ol; 

3769 while(rl-se_fune != 0 && FPil-tc_time <= 0) ¢£ 
3770 | (Kpl-Se_ func) (el->clares) 5 
S771 Pitts 
3772 } 

3773 rP2 = &calloutlOds 

3774 while(re-se_fune = el-se_fune) £ 
SILO Fe-se_time = pil-sc_times 
3776 P2-SCLlarg = Pl-sclarg? 
3777 el+ts 

3778 Petts 

3779 + 

3780 > 

3781 

3782 /* 

3783 X lishtning bolt time-out 

3784 *X and time of day 

3785 x/ 

3786 

3787 out? | 

3788 if((rpssUMNODE) == UMODE) ¢ 

3789 Weuiutimettys 

3790 if ueu_rerof£3) 

37P71 incure(re, weu_rerof) s 
3792 + else 

3793 Weu_stimetts 

3794 PR = Wer Procr » 

3795 if (t+tere-sP leew == 0) 

3796 PRO OR LORIN mF 

3797 ifft+tlholt == HZ) ¢ 

3798 if((rs&0340) != 0) 

3799 returry 
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3800 lholt =- HZ; ; 3850 

3B01 if(t+ttimelijJ == 0) 3851 t£ = tims 

3802 ++timelOls 3852 s = FS->intesys 

3803 Sselicos 3853 ei = calloutlCO]s 

3804 if(timelCid==tout£Lid &@& timelOl==toutldOd) 3854 SEe1L17()y» 

3805 Wakeur (tout) sy 3855 wnhile(rpi-se_func != O && Fi-Sc_time “= t) € 
3806 if(¢time£L13403) == 0) <€ 3856 t =- rfi-te times 

3807 runmriustty | 38357 ritts 

3808 Wskeur(&lbolt) s 3858 } 

3809 + 3859 Pi-sc_time =- ts 

38310 for€rer = &froclOds fre < ae rocCNFROCIs eett) 3860 PQ = ely 

3811 Lf (frr-Sep_lstat) 3861 while(rp2-se_fune != 0) 

3812 if€pr-se_ltime != 127) 3862 Potts 

= i ae Preomoe timett ys 3863 while(rp2 == fl) 

3814 if((prp-eeleruw & 0377) = SCHMAG) 3864 (p24) —-Se_time = F2-se times 
3815 pps ori =- SCHMAGs else 3863 (e2¢id-se_fune = pe-se_funcs 
3816 PPOOPLCrU = OF 3866 . (e2¢tli-Sclarg = p2--elargds: 
3817 if(pr-oplpri = FUSER) 3867 pony 

3818 Setreri Cer) » 3868 + . 

3319 + 3869 ei-se_time = ts 

3820 if(rumin!=0) < 3870 Pil->e_fune = furs 

3821 runnin = OF 3871 rPi-sculeard = arg 

3822 wakeur (&rumin) 3872 FS->inted = s3 

3823 2 3873 } 

3824 if(¢rsaUMNOIE) == UMODE)D < SETH fie Se SSeS ee ee ee */ 
3825 Usu_ard = &rdOs 38735 

3826 ifCissig()) | _ 3876 

3827 PSiadd) ys - 3877 

38328 | setrri(u.,u_rProcr) § 3878 

3829 } 3879 

3830 + 3880 

3831 > 88st 

BEB LK me me ee cre cre sre ee ee ce cae ae ae em ec ee ee so x/ | 3882 

3833 3883 

3834 /X 3884 

3835 k timeout is called to aerranse that 3885 

3836 * funCars) is called in tim/HZ seconds, 3886 

3837 %’ An entry is sorted into the callout . 3887 

3838 ¢h structure. The time im each structure 5888 

3839 kK entry is the mumber of HZ’s more 3889 

3840 k than tne rerevious entry. 3890 

3841 'k’ In this ways decrementing the 3891 

3842 first entry has tne effect of 3892 

4843 €K uredatins @1l emtries. 3893 

3844 K/ 3894 

4845 timeoutéfuns arsy tim) 3893 

3846 <¢ 3896 

3847 resister struct callo Xely XKr2ys 3897 

3848 resister ts 3893 

3B49 imt 3 3899 
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3900 + 

3901 /X 

3902 K/ 

3903 

3904 #include "“../rarameh" 

3905 #include "../syustmeh’ 

3906 #include *../user.inr" 

3907 t#tinclude °../rroceh" 

3908 ttinclude "°"..,/inode.h" 

3909 #include "../res.h*® 

3910 

3911 /x 

3912 -€k Friority for trecins 

3913 */ 

S914 tdefine IFCFRI ¢-13 

AGIs 

3916 7X 

3917 & Structure to eccess am array of intesers. 
3918 */ 

3919 struct 

3920 £ 

S921 int intalils 

S922 5 

SD 2S fe ee ae ae ee ee ln ie ee K/ 
3924 

3925 7X 

3926 kh Tracing variables, 

3927 * Used to rass trace command from 
39283 k® rarent to child beings traced. 
3929 '%’ This dats base cannot be 

39°30 x*& shared amd is locked 

3931 %X Fer user. 

3932 XS 

3933 struct 

3934 <£ 

3935 imt ir-clocks 

3936 int irP_Treams 

3937 int ir-pladdrys 

4938 aint ip_idatas 

SPSS * Pc? 

BOAQ SK mmm mm mr ee me x/ 
394i 

3942 /*X 

3943 *%* Send the specified sidnal to 
3944 ** all rrocesses with ‘tr’ as its 
3945 'k controlling teletyure, 

3946 *k Called by tty.c for auits and 
3947 kK interrurts. 

3948 */ 

3949 sidnmal(tr, sig) 
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3950 
S951 
3952 
3953 
3954 
S9SS 


3956 


3957 
39358 
3959 
3960 
596k 
35962 
3963 
3984 
S96S 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
35974 
3973 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
S99S 
3996 
3997 
3998 
3999 
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resister struct rroc kr; 
ReroclO]} re < &ProcCNFROCI3 


if (pore wttyr tr) 
Psignaldry 


for(p = r++) 


Sig) 5 


x eee s0en seen ste” ween oees wees ont 060 Sune tee ene sues seen cent cums cuss ates coco eran eves anes sens cece cose x/ 


x 
*X Send the srecified signal to 
K the srecified rrocess,. 


x/ 
signal(drs, sigd 
mt xXps 
resister Xrr? 
if(sig >= NSIG) 
returny 
Tr = PF . 
if(re-sre_sig != SIGKIL)D 
TP-SPLSsig = sid? 
if(re-Sreoustat = FUSER) 
| feo-sP_lstat = FUSER? 
if(re-seustat == SWAIT) 


setrun(Crre) 


x/ 


Returns true if the current 
Process has a sidnmal to rrocess,. 
This is asked at least once © 
each time @ Frocess enters the 
sustem. 

A sigsmal does not do anythine 
directly to 3s rrocesss it sets 

a flags that asks the rrocess toa 
do somethinad to itself. 


MMMM MMH HM HM HK 


x/ 
ssig() 


register my 
register struct rroc xXry 


P= UsULProcrys 
if(m = p-spisis) 
if (p-sp_flas&aSTRC) 
stor)» 
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4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 


4023 


4024 
4025 
A026 
4027 
4028 
4029 
4030 
4031 
4032 
A033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4AQ42 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
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if ((nm = fr->p_sig) == QO) 
returnm(O) ¥ 
} 
if((ueu_sisgnmalf€nde1) == 0) 
return (rn) 
+ 
returm(O)s 
+ 
| a a a a aa ec K/ 
“* 
KX Enter the tracing STOF state. 
KX In this state» the rarent is 
xk informed and the rrocess is able to 
*X receive commands from the rarent. 
K/ 
stor) 
af 
resister struct Froc Kerry Kcery 
lLoor? 
Cr = UseULFrocry 
if(cr-Srlpreid i= 1) 
for (rr = &ProclO]s fr = SprocCNFROCI]s fFrtt) 
if (pp-SPleid == cr-tpolrppid) 
Wakeur (CrP) s 
Crepe istat = SSTOFs 
swtch()s 
if (€er-te_flas&aSTRO)==0 [i frrocxmt¢)) 
returny 
soto Loors 
} 
exitd)s 
+ 
PK mm nt re ee ee ee re mem x/ 
“* 
* Ferform the action srecified by 
* the current sisgmal. 
KX The usual seauence 1s? 
K ifCissig()) 
x PSidd)s 
x / | 
rPSsig¢) / 
t 
resister iy Fy 
register xkKrry 
TP = UsuUulPProcr s 
mo o= Ppeespo sigs 
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4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
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TRPOSP_Ssidg = OF 
if(Cr=u.-u_signalf€nJd) != 0) £€ 
Ueu_error = QO» 
if(m '= SIGINS && m '!= SIGTRC) 
WeuU_sisgmal£€nd = OF 


m= ueu_arOCRé6é] —- 43 
srow(n) s 
suword(nt2,s ueuarOCRFS 1) » 
suword (my u,uarOCR7])» 
ueu_arOLCRé] = my 
usu arOCRFS] =& “TRITs 
ueuarOCR/7] = Fy» 
returns 

} 

SWitch(n) 


SIGQIT? 

SIGINS?: 

SIGTRC; 

SIGIOT: 

SIGEMT; 

SIGFFT? 

SIGRUS? 

SIGSEG? 

SIGSYS: 
uUeuiarsCoO] = 
iftcore()} 

m =+ O2003 


C3se 
csse 
C3se 
cs3se 
Case 
c3se 
C3se 
case 
c3ase 
ry 


+ 
UeuiearsgCO] = 
exitd)y 


Cu.,uU_arOLROIJ2<8) | ms 


COS eS0e SORE SETS WUE ctEE DOES GEE CUBS OFED FEE COTE ORPE GEST COED SUEY EDT SEED BESS BEES eRER COTS SEES CHER UETS 


K/ 


Create @ core imsde on the file "core" 

If you are looking for rrotection glitches,» 
there are frrohahly a wealth of them here 
when this occurs to a suid command. 


It writes USIZE block of the 
user.h area followed by the entire 
datatstack sedments. 
x/ 
core) 
{ 
resister Sv» Kiry 
extern schars 


Useliwerror = Og 
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4100 
41ol 
4Alo2 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
41il 
Allie 
4113 
4114 


A fo ote 


4iLis 
4116 
ALi? 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
41335 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
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Ueliidirre = "cores 
if = mamei(C&schary 1) 
LfCir == NULLOD ¢ 
if(ueu_error}) 
return(Q) 3 
ir = maknode(O666) + 
ifGirp == NULL) 
return(O)35 
> 
ifClaccess(ir,»y IWRITE) &8& 
(ire-si_imode&gIFMT) == 0 &&% 
WelWid == useuruidd ¢ 
itrune (iP) ¢ 
useuioffset[O] 
uesu_offsetCil 
i+iilHese = Giir 
Usucoumt = USIZEX64; 
ueuisesfilg = 13 
writelCirpds 
S$ = UeULProcr-sroisize - USIZEs 
estebur(Os sy Ov QO)? 
Usuihase = O+% 
Ueuicount = ské43 
uUesuisesfls = OF 
writeitiP?s 


0% 
O05 


Hoo 


} 
LEUL CLE) 
return(u.-u_error==0) 3 
+ 
fp Ti cteelentestentetelentenetentetetenetentetentenetetentameaten xK/ 


/* 

K grow the stack to include the SF 
KX true return if successful, 

x/ 


$row (sr) 
char Xsr; 
£ 
resister ay Si» 13 


if(srp 2= -u.ussizexé4) 
returm(O)s 
si = Ildivi-sry 64) - ue.u_ssize + SINCRs 
iffsi <= 0) 
returnm¢0)»s 
iffestabur(u.,u_tsizes ueu_dsizer u.u_ssizetsi»s 
returm(O) + 
exPangd(u.,u_PTOCR-SF_S1lzetsl)s 
3 = UeuLProcr-S>rPladdr + WeuLProcP-sP_sizey, 
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4150 
ALS 
4152 
4153 
4154 
41355 
4156 
4157 
4158 
41S? 
4140 
4lél 
4162 
4163 
4164 


AA LE. 
“TY he Med UP 


4166 
4167 
4168 
4149 
4170 
A171 
4172 


4173 


4174 
AL7S 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4137 
4188 
4189 
4190 
4191 
4192 


— 4193 


4194 
4195 
4196 
4197 
4198 
4199 
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forCitu.u_ssizer is iv--) € 
Boe ; 
coryses(a-sisy 3a)3 
+ 
for(€i=sis 1% 1--) 
clearsed(--a) 3 
WeliSsSize =+t sis 
return¢l)ds 


TMK tree ree mee saee cane mean met sees cate ete are nn seen cots te snen anes snes eee sont cute na tne st xK/ 


/*® 
KX sus-trace system call. 
xK/ 
retraced) 
ft 


& 


resister struct fFroc kes 


if (u.eu_ars#fC2] “= 0) £€ 
WelProcr-srp_ufled =i STRC» 
returns ~ 
} 
for (r=procy pep «< &rrocCnNFROC]s &t++) 
if (p-se_stat==SSTOrR 
$% PoSPlrPpid==y.u_areCod 
8% POS PLPPLid==u.ULPProcrersrlrid) 
soto founds 
usuerror = ESRCH#s 
returns 


found: 
while (ipc.ir_lock) 
sleer(&ircy, IPCPRRI)Ds 
i-c.irp_lock Poor lpids 
ip-ceip_datea useuaroOLROds 
ipc,irwladdr uUeuiars{Cl] & “Ol? 
ipc.,irpwrea = us,ularsl2ds 
Po-SP flag =& “SWTELD 
setrumdr) > 
while (Cipc.ir_rea = 0) 
sSleer(Zirecsy IFCFRID: 
uUeu_arOCRO] = ipceiredatays 
if (irpc.irp_rea << 0) 
Ueu_error = EIO:s 
ir-ceirpilock = O¢ 
Wakeur(&irpc) + 


[0 ------------------------- x/ 


“* 
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4200 xk Code that the child rrocess 4250 breaks 

4201 k executes to implement the command 4251 

4202 * of the parent rrocess in tracing. 4252 /*% write u k/ 

4203 xX/ 4253 case &3 

4204 Frocxmt() 4254 PF = &u,intealirc-.ip_iladdrs sid; 
4205 £¢ 4255 if (fr >= u-u_fsav &% P = &us.u_fsav[C25 1) 
4206 resister int 13 42356 goto ok» 

4207 register int Xrs 4257 for (€1=0% 189% it+) 

4208 4258 if (rp == g&u,u_ardCresgloc([iJjJ]) 
4209 lf Circ.eirwlock != ueulrrocr-sP_rid) 4259 soto oaks 

4210 returni¢O) ¥ 4240 goto errors 

421i 1 = LPCelrP_reams 4261 ok. 3 

4212 ir-ceirirea = OF 4262 if (Pp == &ueucarOLCRFSJ) < 

4213 wakeur (Sire); 4263 /* assure user space XK/ 
4214 Switch ¢id <¢ 4264 ip-c.irptdatea =i O1700003 
4215 4265 /*¥ priority O X/ 
4216 7* read user I x/ 4266 lpc.ipidata =& “03403 
4217 case 13 4267 } 

4218 if (fuihbyteCire.ir_addr) == -1) 4268 Ke = ipc.iridatas 

4219 goto errors 4269 break. s 

4220 ip-c.irpidata = fulword(irc-eiriaddr)s 4270 

4221 breaks 4271 /* set sidnal and continue x/ 

4222 4272 case 7% | 

4223 /*X read user DI k/ 4273 WeULPPOCRP(SP_Sis = irc.irtdata; 
4224 case 23 : 4274 return(1)y3 

4225 if (fubyte(ipc.iriladdr) == -1) 4275 

4226 soto errors 4276 /*& force exit x/ 

4227 Leceipudata = fuword(ire.ieiaddr) s 4277 case 83 

4228 breaks 4278 exitdd)s 

4229 4279 

4230 /® read wu x/ 4280 default? 

4231 case 3? 4281 errors 

4232 2} = Lepc.irwaddrs 4282 ir-ceir_rea = -13 

4233 if ¢izO !! i == (USIZE<246)) 4283 } 

4234 goto errors 4284 return(Q) 

4233 ir-csirwtdata = ueimtalisslids 4285 } 

4236 bresk 3 GQB EG LK rrr ee mr rr me me mn wen re crn ee are ete ce een | */ 

4237 4237 

4238 /* write user I (for mows always an error) xX/ 4288 

4239 case 43 4289 

4240 if (suiword(irec.irwladdry 0) <= QO) 4290 

4241 doto errors 4291 

4242 suiword(irc.ipiaddrs ipc,ireidata): 9292 

4243 breaks 4293 

4244 4294 

4245 /* write user [I x/ 4295 

4246 case 3S? 4296 

4247 if (suword(irpceircaddry 0) = 0) 4297 

4248 soto errory 4298 

4249 suword(irc.ircladdry irc-eiredatea) ; 4299 
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4300 /x 4350 # 

4301 *k* Text structure. 4351 #include *../raram.h" 

4302 %'%* One allocated rer Frure 4352 *€imclude "../systm.n" 

4303 *k* frocedure on swar device. 4353 #include °../user.h" 

4304 * Manirulated by text.c 4354 #include °../rroc.h’ 

4305 *«/ 4355 #include °../text.h" 

4306 struct text 4356 #include *../inode.h* 

4307 < 43357 

4308 init x daddr s /X disk address of segment X/ 4358 /*K Swar out process F,. 

4309 inmt xO Caddr ys 7X core address, if loaded x/ 4359 % The ff flad causes its core to he freed-- 

4310 ant HOUSizey /K size (K64) *K/ 4360 * it may be off when called to create an image for a 
ASi1 aint Kee try 7X inode of Frototyre */ 4361 6k’ child fFrocess in mewrroc. 

A312 cher Hw CaUMt § /KX reference count XK/ 4362 6K’ O5 15 the old size of the data area of the Frocessy» 
4313 char x ccournt ¥ fk rmumber of loaded references X*/ 4363 * and 1s surprlied during core expansion swears. 
4314 }+ textCInNTEXTI3 4364 XxX 

ASLD [KK mmm mr mm em nm rr tren *x/ 4365S *k Fanic: out of swar srace 

4316 4366 kK ranic: swar error -- IO error 

4317 4357 x/ 

4318 4368 xswar(rs, ffs, a5) 

4319 436? int Xrs 

4320 4370 <{ resister XKrry a3 

4321 4371 

4322 4372 Tre = py 

4323 4373 if(os == 0) 

4324 4374 OS = PPrsPowsizes 

4325 : 4375 a = malloc(swarmarr (re-spolsizet7)/8) » 

4326 4376 if¢a == NULL) 

4327 4377 PanicC"’out of swar srace")» oa 
4328 | | : 4378 needec (re re textr) 3 Es 
4329 4379 reosepoflag =! SLOCKs en 
4330 4380 if(swar(as re->reladdrs os» 0)) 

4331 438t- Fanie("swar error"); 

4332 4382 if(ff) 

4333 | 4383  mfree(coremar:s os» pr-ePladdr) § 

4334 | 4384 reo lPladdr = a} | 

4335 4385 recspiflag =& *“(CSLOADISLOCK) $ 

4336 4386 Teo-sPpltime = OF 

4337 4387 if(Crunout) ¢€ 

4338 4388 rHnMOuUt = OF 

4339 4389 wakeur (&runout) ¥ 

4340 4390 } 

4341 4391 } 

4342 cS SCAM A Ul aaleatontoalontetetenlonteatenteniaeiatetontentententenemetenenten xK/ 

4343 4393 

4344 A394 /*X 

4345 4395 * relinauish use of the shared text sedment 

A346 4396 *k* of & rrocess, 

4347 A397 X/ 

4348 4398 «free? 

ASAD — 4399? <£ resister Kxes Kirg 
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4400 4450 } a 

4401. Lf ((xesu.ulrerocrcSrutentr>d != NULL) 4451 if(¢xrsrre) == NULL) ranic(*out of text") 
4402 UeUuFrocre sro texte = NULL: 44352 Mpoex count = 1s 

4403 meedec Cx) 3 4433 MPS eCcOouUnNt = OF 

4404 Lf (--xee Ee _count == 0) <¢ 44354 MPOEMLLPEtrP = Les 

44AO3 Le = MPM oMLLP tr 4455 ts = (CCueularsfl1I4+63)226) & O1L77735 

4406 LP ¢<ie-bi_mode&sISVvTX> == 0) £ 4456 MPoSMUSlize = ts? 

4407 Meee ietr = NULLS 4437 if((xp-seodaddr = malloc(swarmars (tst7)/8)) == NULL) 
4408 mfree(swarmary (xP sxusizet7)/8» 4458 Fanic ("out of swar srace")s 

HAO? MPomoM uu daddr) s 44359 expand CUSIZE+ts) 5s 

4410 te-Siflag =& “ITEXTs 4440 estabur(Oy»y tor Or O}% 

44ii LTPULCLP DS 2 446i Weicount = uretilarstlids 

4412 + _— 4462 ueoffsetCid = 0203 

4413 + 4463 Usuuhase = OF 

4414 + 4464 readi(ir)? 

4415 } 4463 TF = Wel rocrs 

ROLE. ff KX. SH See ee Se eee eo HS eee ee K/ 4466 reooroflad =| SLOCK? 

4417 4467 swar(xe-oMudaddry re-seladdrtuSIZEy ts 0)» 
4418 /xX Attach to a shered text segment. 4448 re-spolflag =& “SLOCK?: 

4419 %* If there is no shared text, Just return. 4469 Teese otexte = ps 

4420 *’ If there iss hook ur to it? 4470 rR = LPs 

4421 * if it is not currently beings useds it hes to he read 4471 reosi_flag =! ITEXT: 

4422 % in from the inode (iF) and established in the swar srace. 4472 reeSicounttts 

4423 kh If it is being usedy but is mot currently in corey 4473 expand (CUSIZE)» 

4424 * a@ swar has to be done to det it back. 4474 out? 

A425 « The full coroutine sglorys has to he invoked-- 4475 if(sersxucccount == 0) <¢ 

4426 * see slr.c-- becsuse if the calling rrocess 4476 savuliu.Ursavd § 

4427 '’ is misrlaced in core the text imasde might not fit. 4477 | savulus.ussav) 5 

4428 6’ Quite Possibly the code after "out?" could check to 4478 XBWEPCUeULProcrs, ly O)3% 

4429 '%’ see if the text does fit and simrly swar it in, 4479 Ueli_erocr-eriflag =: SSWAFs 

4AZO X 4480 swtch()s 

4431 %’ ranic? out of swar srace 4481 . /*k¥ no return */ 

4432 &/ | 4482 } 

4433 xalloc tip) | 4483 MPoSRCcounttts 

4434 int xiry 4484 } 

4435 £ | BABS LK mmm mm rrr er meen K/ 

44AZS resister struct text kKxpy _ | 4486 ; 

4437 resister Xrry ts3 4487 /* Ttecrement the in-core usage count of ae shared text 
4438 4488 xk sedment. When it drorps to zeros free the core space, 
4439 if€u,u_ars(€1J == 0) returns | 4489 = X/ 

4440 re = NULL? 4490 xecdec (ur) 

4441 for(sxe = &textlCOl]? xe < StextCINTEXTI3 x«pett) A491 aint Kurs 

4442 if(xepcoeiptr == NULL) <£ 4492 £ 

444AS if(rre == NULL) 4493 resister Xrrs 

A444 | TR = MPS 4494 

44435 + else 4495 if((Crre=xep)!=NULL && re->x_ccount!=0) 

4446 if (spree iretr == ip) HAIG if (--re-S>xu_ccount == 0) | 

4447 HPO KCoumttt » 4497 mfree(coremary frr-eNusizey Preo->xucaddr)»y 
4448 WeUPPTOCRO- SPH textr = urs 4498 } 

4449 goto outs 4499 
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2341 1976 unix/dbuf.h Fase 1 
4550 
Each buffer in the rool is usually doubly linked into two 4551 
lists: for the device with which it 158 currently associet—-45352 
ed (always) and also for ee list of blocks available for 43533 
allocation for other use (usually). 43354 
The latter list is kert in last-used orders and the two 4555 
lists are doubly linked to make it easy to remove 4556 
a buffer from one list when it was found by 43557 
looking through the other. 4358 
A buffer is on the available listy and is lisble 43559 
to be reassismed to another disk blocks if and only 4360 
if it is mot marked BUSY. When a buffer is busy, the 4561 
avelilable-list rointers can be used for other Furroses. 4362 
Most drivers use the forward rtr as a link im their I/O 4363 
active aueue. 43564 
A puffer header contains sll the information reauired 43635 
to rerform I/0. 4366 
Most of the routines which manirulaete these things 43567 
are im DLO+Ce 43568 
. 4569 
uet buf 4370 
43571 
int boflads; /*X see defines below x/ 4372 
struct buf Kh forws /* headed by devtah of bidev xX/ 4373 
struct buf Kb_backs “KX 5 K/ 4374 
struct huff Kav_forwy /*X Fosition om free lists */ 4575 
Struct buf kKavineck: 1% if mot BUSYXK/ 4576 
int Oudevy  /*K maJor¢minor device mame X*/ 4S77 
int bowcounmts “X transfer count Cusu. words) x/ 4578 
cher Kb_addry /X low order core address X/ - 4379 
cher Xb_xmems /* high order core address x/ 4380 
cher xo_plknoas /*k block # om device X/ 4381 
char huerrors . /% returned after I/0 x/ 4382 
cher Kb_uresids /* words not transferred after 4383 
error xX/ 4384 
UfCNBUF 13 4585 
wt cans oot etm a ne te sme et eee te rts ne ne ee er xK/ 45864 
4587 
4588 
Each block device has a devtabsy which contains rrivete 4589 
state stuff amd 2 list heads? the b_forw/buback list, 43590 
which 1s doubly linked and nas all the buffers currently 4591 
associated with thet maJjor devices 4392 
and the doactf/diactl Lists which is fFrivate to the 43593 
device but im fact is always used for the head and tail 43594 
of the I/0 aueue for the device, 4395 
Various routines in bioec look at b_forw/b_back. 4396 
(notice they are the same as in the buf structure) 4397 
but the rest is rrivate to each device driver. 4398 
4399 
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char diactives “/*% busy fleas x/ 
cher dilerrentys /*& error count (for recovery) */ 
struct buf kb _forws /*% first buffer for this dev X/ 
struct buf kb_back, /* last buffer for this dev X/ 
struct buf kKdlactfs /* head of I/0 aueue X/ 
struct buf Kd_actls /%& tail of I/0 aueue X/ 
+¥ 
a a a a a aa x/ 
7X 
* This is the head of the aueue of available 
X buffers-- all unused excert for the 2 list heads. 
x / 
struct huf ofreelists 
/* 
* These flass sre kert in bfleds. 
x / 
#define BUWRITE 1) 7* non-read rseudo-flag X/ 
#define BUREAL O1 /* read when I/O occurs X/ 
#defime BUDONE 02 -/* transaction finished x/ 
#define BLUERROR 04 7k transaction sborted x*/ 
#define BUBUSY 010 7X mot on aviforw/back list x/ 
#define B_FHYS 020 “*& Fhysical 10 rotentially 
using the Unibus mar x/ tek 78 
#define BOMAF Q40 7X This block has the UNIBUS 
mar allocated x*/ : 
#define BOWANTED 0100 /* issue wakeur when 
BUSY goes off X/ 
#define RB_RELOC 0200 /*¥ no longer used xX/ 
#define BUASYNC 0400 /*% don’t wait for 1/0 
_ completion x*/ 
#define BUDTELWRI 01000 /*X don’t write till block 
leaves available list x/ 
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44600 /& Used to dissect imtesder device code 4650 /* 

44601 kk into maJjor (driver designation) and 4651 mk’ this file is created, salons with the file ®low.s” 
4602 kK minor (driver rarameter) rarts. 4652 * bye the rrogram "mkconf-ec"’s ta reflect the actual 
44603 X/ 4653 '%* configuration of rerirheral devices om @ system, 
4604 struct { 44654 x/ 

44605 cher Gominor s 4655 

4606 cher doomaJtor ¥ 46356 int (xbdevswl]> 0) 

4407 33 4637 £ 

ASO /K mmm mmm mmm mm rr rrr men K/ 4658 &mullidevy &mulldevys &rkstratedys, &rktabs /K rh K/ 
44609 /X Tleclaration of block device 4659 &nmodevy &nodevy &nodevy, Os /kK re k/ 

4410 *« switch. Esch entry (Crow) 16 4660 &modevy &nodevy &nodev: Oy» /k rf xK/ 

A611 * the only link between the 4661 &nodevy &nodevy &nodev, Oy /xK tm */ 

4612 * main unix code and the driver. 4662 &nodevs &nmodevy &nodevs Ov /K te X/ 

4613 %* The initialization of the 4663 nodevy &nodevy &modevr, Or /K hs X/ 

4614 * device switches is in the 4664 &nodevy &nodev:s &modevy O» /K hr XK/ 

4615 *#* Tile conmfecs 4665 &nodevs &nodev:s &nodevr O» /K ht xk/ 

4616 *K/ 4466 0 

4617 struct bdevsw 4&67 +3 

44618 int (Xdorern) () 95 4668 

4419 int (Kd_close)()3 4469 int (KcedevswElI)() 

4620 int (Xd_stratedy) ()3 4AG70 

A621 int Kdotahs 4671 &klorens &klcloser &klread: &hlwrite, &kilsdttyy 
4622 3+ bdevswlis 4672 /*X comsole */ 
BOGS fk See Ree eS eS SS ee K/ 4673 &&rcoreny &recclose,s &rPcread: &rcwritey, &nodev: 

4624 /*X Nblkdev is the mumber of entries 4&74 /* Fe xK/ 

4625 %*’ (Crows) in the block switch. It is 4675 &lroren:r &leclose,s &nodevs &lrewrites &nodev,s 

4624 €* set im binit/bio.c by makings 4676 4K ls xk/ 

4627 K&.a rass over the switch, 4477 &nodevy &nodeve &nodevs &nodevys ‘&nodevy /X dc X/ 
4628 k* Used in bounds checking on maJor 44678 &nodevy &nodevr &nodevy anodevs &nodevs /xk dh k/ 
A629 k device mumbers. | 4679 &nodevy &nodevy &modevs &&modevs &nmodevs /K dr ¥/ 
4630 */ 4680 &rodevys &nodevs &mnodevys &nodevy &nadevy /K di */ 
443i aint nbolkdevs 4681 &nodevy &nmodevy &nodev,y &nodevs &nodevy /Xk dr */ 
48b32 A682 &mulldevs &nmulldevs &mmready &mmwrites &nodevy 
4633 /X* Charecter device switch. 4683 f/* mem xX/ 

4634 */ 4684 €&nulldevys &mulldev»s &rkready &rkwrites &nodev» 
4635 struct cdevsw <{ 4685 7% rh k/ 

4636 int — (Xd_oren) 0) 3 4686 &&modev: &nodevy &nodevy &modevy &nmodevys /k rf K/ 
4637 imt (Kd_closed()3 4687 &&nodev,y &rnodevs &nodevy» Snodevy &modevy /K re */ 
4638 int (Xd_read)(); 4688 &nodevy &nodevs &nodevs &nodevy &nodevs /k tm K/ 
4639 imt (Kd_write) ()% 4689 &nodevy &nodevy &nodevs &nodevy &nodevy /*k hs xK/ 
A540 int (Xd_sstty) d) 35 4690 &modev»y &rnodevy &nodevy, @nodevy &nodevs /*X Nr x/ 
4641 3 cdevswl3 4691 &nodevy &nodevy &nodevys Zmadevy &modevs /X ht xk/ 
S642 LRH Se Sere HS ee Se See x/ 4692 O 

4643 : 4693 3 

4644 /X Number of character switch entries, 4694 

4645 * Set by cinit/tty-c 4695 int rootdev {(O248) ;O}% 

4646 K/ 4696 int swardev (¢€02°8) 1073 

4647 int mchrdevy 4697 int swrelo 40003 /xX carnmot be zero xX/ 

4648 4698 int mswar 8723 

4649 4499 
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4700 # 

4A7O1 /X 

4702 X/ 

4703 

4704 #1include "../rarameh" 

4705 #include "../user.h" 

4706 #include "../buf.hn" 

4707 #include "°../conf.h" 

4708 #include "../systm.h" 

4709 #iriclude “../rroceh" 

4710 #inelude "../seg.hn" 

47il 

4712 /*X 

4713 '’* This is the set of buffers rrorerr whose heads 
4714 % were declered in buf.h-. There can exist buffer 
4715 kK headers not Pointing here that are used rurely 
4716 kK as arguments to the I/0 routines to describe 

4717 %* I/O to be done-- e.g. swhufy Just hbelows for 

4718 kK Swarrind. 

A719 xs 

4720 char huffersCNBUFICS1413 

4721 struct buf swhuf » 

4722 

4723 /*€ 

4724 * Declarations of the tables for the mastere devices: 
47235 see bdwrite. 

4726 */ 

4727 int tmtabs 

4728 int httaby 

4729 

4730 /* 

4731 * The following several routines allocate and free 
4732 * buffers with various side effects. In deneral the 
4733 * arsuments to an ellocate routine sre a device and 
4734 kk @ block mumbers end the value is @ rointer to 

4735 * to the huffer headers the buffer is marked “husy" 
4736 * so that no on else cam touch it. If the block was 
4737  * already in cores mo I/0 need be dones if it is 
4738  * already busysr the rrocess waits until it becomes free. 
473° %* The followings routines allocate a buffer: 

4740 kK setblk 

4741 kX bread 

4742 * breadsa 

4743 k* Eventually the buffer must be released: rossibly with the 
4744 kK side effect of writing it outs by usingsg one of 
4745 kk fhwrite 

474& * hdwrite 

4747 *k hawrite 

4748 x brelse 

4749 = X/ 
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4750 
4751 /x 
4752 
4733 X/ 
47354 bre 
4735 ¢ 
A736 
4737 
47358 
475° 
4760 
4761 
4762 
4743 
4764 
4763 
4766 +} 
47&7 /X 
4768 
4769 /X 
4770 X 
4771 x 
4772 KS 
4773 bre 
4774 £ 
4773 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
A792 
4793 
479A 
4793 
4796 
4797 
4798 
4799 
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Read in (if necessary) the block and 
return 2 buffer rointer,. 
ad(devs bolkno) 


register struct buf XKrorys 


roe = gethblk(devs blkro)» 
if (rbp-tb_flegs&R_ DONE) 
returnm(rhp ) » 
rhe-sbuflads =i BOREAL 
rhe-Sbuweount = —-2563 
(xbdevsuldev.d_maJor].d_stratesy) (rbr)s 
LOWS1itCrhe) » 
return (ror) 9 


manne nen enn K/ 


Read in the blocks like bread, but also start 1/0 on the 
read-ahead block (which is mot allocated to the caller) 


adaCadevy bliknor rablkno) 
resister struct buf Xrbrs:s xkrahrys 
resister int dev; 
dev = adevys 
roe = OF 
if (lincore(devy blkmo)d) ¢€ 
rhe = detblk(devs blkmoad; 
if (Crbp-sb_iflags&B NONE) == 0) 
rohe-sbuflads =i BREAD s 
rhe-Sbuweount = -—2563 
(kXbdevswlKadev.d_maJorl].distratesy) (rbr) > 
} 
} : 
if (rablkno &% !incore(devy rablknod?) <« 
rahe = getblik(dev:y rablkno) ¢ 
if (rabr->b_ flags & B_UDONE) 
brelse(rahp) 3 
else ¢ 
rabre->b_flaess =i BOREAL) BLASYNCs 
rabr-Sbuweount = —-256% 
(xXbdevswladev.demaJor].duistratesy) (rabr) y 
+ 
+ 


if (rohe==0) 


returntbread(devs bhlikmrod)s 
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4800 Lowait(rbr) 3 4850 } 

4801 return (rbr) 3 QB LK mer ee ee et ee et ee x/ 

4802 } 4852 

4ABO3 [KK mer mm rr rr rr rr re K/ 4853 /X Release the buffers start I/0 om ity but don’t wait 
4804 48354 xX for comrletion x/ 
4805 /x . | 4855 

AB0& * Write the nuffers waiting for comrletion. 4856 baewrite(lbr) 

4807 * Then release the buffer, | 4857 struct buf xb? 

4808 x/ 4838 ¢< 

4809 bwrite (hr) 4859 register struct buf xrbr; 

4810 struct buf xkKbrs 4860 

48ii < 4861 ror = bre 

4812 resister struct buf Xrbpys 4862 rhe-sbuflads =i EBLWASYNCs 

4813 resgister flesy ; 4843 bwrite (rir) ¢ 

4814 4864 } 

48513 Thies = bE 9 2045 JA SSeS SSS SSS eS eee xK/ 

4B16 flag = rhp-sbufladss 4866 

4317 The-sbuflads =&% “(BLREAD | BUDONE | BUERROR {| BUDELWRI)$ 4867 /xX release the buffers with mo I/0 imrelied. 
4818 POPS buweount = —-2563 4868 *x/ 

4819 (Xodevswlrbp-sh_dev.dimaJor].deistratedy) (rbr)s 4869 brelse(brp) 

4820 Lf ((flas&BR_ASYNC) == 0) ¢ 4870 struct buf Kbps 

4821 Lowait(rbr) 3 4871 ¢ 

4822 brelse (ror) s a 4872 register struct buf XKrber k*kbackes 

4823 + else if ((flas&B_DELWRI )==0) 4873 resister imt sess 

4024 seterror (ror) § 4874 | 

48235 3} ) 4875 ror = bry 

SELLS LR. Seen SSeS eee ee Se ae x/ 4876 if (rbp-Sb_flasssBuWANTED) 

4327 | 4877 Wakeur (rb) 3 

4326 /*X 4878 if (bfreelist.boflessaB WANTED) <€ 

4829 é%* Release tne buffers marking it so that if it is Ssrebbhed 4879 bfreelist.b flags =& YBUWANTETD 3 
4830 * for another rFurrose it will he written out before beings 4880 wakeur(&bfreelist)s 

4831 Kk siven ur C€e.a. when writing a rartial block where it is 488i } 

4832 kK assumed that another write for the same block will soon 4882 if (rbr-sbuflass&BR_ ERROR) 

4833 %’* follow). This can’t be done for masdtarer since writes 48983 TOoe-Shbdeveduiminor = -15 /kX mo assoc. om error X/ 
4834 k* must be done in the same order as reauested,. 4884 }#$ ihackr = Sbfreelist.avibacks 

4835 */ 4885 ses = PS->intess 

4836 bdwrite (br) 4886 srP16()3 

4837 struct buf xXbrys 4887 rhe-Sbufleds =& “CBR_UWANTED! BLBUSY! B_ASYNC) $ 
4838 < 4888 (xXbsackr d-saviforw = rors 

4839 register struct buf xrbr; 4889 rhe-Saviback = Kbackrys 

4840 | resister struct devtab xdr3 4890 Xbackr = ries 

4841 4891 ror-saviforw = &ofreelistys 

4842 Ybor = bry 4892 PS-sintes = srsys 

4843 de = bDdevswlrbr->b_dev.d_maiworl.deitabs 4893 } 

4844 if (de == &tmtab i; dre == Shtteb) | AB9S: 7k. Heh SS 24S SS Se ee eee K/ 

4843 bawrite Crbr) » ; 4895 

4846 else <¢ 4896 /Xk See if the block is essociated with some buffer 
4847 rohp-sbufleds =! BLIELWRI :; RBUDONEs 4897 kK (mainly to avoid sgettingsg hums ur on 8 wait im breaeda) 
4848 brelse(Crbr) » 4898 xk/ 

4849 + 4899 incore(adevy bikmno) 
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4900 ¢<€ 4950 + 

4901 resister int devs 4951 + 

4902 register struct buf kbp, 4952 SP1GO)» 

4903 register struct devtab xXdry; 4953 if (bfreelist.av_forw == &hfreelist) 

4904 4954 bfreelist.b flags =! K_UWANTEDs: 

4905 dev = edevy 4955 Sleep (%hbfreelist,s FPRIBIO)» 

4906 de = bdevswladev.d_maJorld.d_tabs 49356 srlOd) ys 

4907 for (br=de-sbuforw: bre != dey bre = be->hb_forw) 4957 soto loorys 

4908 if (brp-Sblblkno==blkno &% be->hb_dev==dev) 4958 }- 

4909 return(bp) ¢ 4959 SPLOC)s 

4910 return (QO) s 4940 notevail(or = bfreelist.av_forw) » 

4911 } 4961 if (be->b_flags & K_DELWRI) < 

AQIS [RK mmr rr rrr rrr nn x/ 4962 be-sb flags =i BUASYNC; 

A913 4963 bwrite (br) ys 

4914 /xk Assigm 3a buffer for the diven block. If the arrrorriate 4964 goto loors 

49°15 %* block is elready associateds return its otherwise search 4965 + 

AP16& *k for the oldest non-husy buffer and reassign it. 49&6 be-sbuflads = B_BUSY i EB _URELOCs 

4917 k’ When a S1l2-byute area is wanted for some random reason 4967 be-Sblback-Sbuforw = bro Sbiforwys 

AQIS 6’ (e.g. during execy for the user arglist) getbhlk can be 4968 be-Sobuforw-sbbhack = br-tb_bhack: 

ADL? xk called with device NODEV to avoid unwanted associativity. 4969 be-sbuforw = dr-souforws 

A920 = X/ 4979 be-Sbuback = dry 

4921 sgetblk¢(devys blkmo) 4971 ge-sbiforw-sblhack = bry 

AQ22 £ 4972 de-sbuforw = Ory 

4923 register struct buf Xxbr; 4973 be->bidev = deve 

4924 redister struct devtah Xd; | 4974 be-Sblbplkmo = blknos 

4925 extern Llbolt; 49735 return (OF) § 

4926 4976 } 

4D27 if(dev.d_maJor 3= mblkdev) BOD LR mmr ee ee ee me */ 

4928 Panic("blkdev")$ 4978 

AD29 4979 /X Wait for I/0 comrletion on the buffers return errors 
AD30 loor? 4980 x to the user. ae 
ADS1 if (dev < 0) 4981 *x/ 

APS2 de = &bfreelist;s 4982 towait(br) 

AD SS else <{ . 4983 struct puf kKbrys 

4ADS4 die = bdevswlKdev.dumaJorl].doitab3 4984 <« 

4935 if(de == NULL? 4985 register struct buf Xrbry 

ADSS rFanic("devtab") 3 4986 

4D37 for (bpe=de-tb_forw? be != des be = be->b_forw) € 4987 rhe = bes 

4938 if (bep-Sbublkno!=hlkno {i be-Sbudevi=dev) 4988 SP16() 35 

4939 continues 4989 While (Cror->b_flads&B_IIONE)==0) 

4940 serl&()s 4990 sleer(rbre, FPRIBIO)s 

AD4l if (br->bu_flass&R BUSY) ¢< ADF 1 SsP1lOC)s 

4942 be-sbuflags =! EBUWANTELs$ 4992 seterror(rir) 

4AP4S Ssleer(be, PRIBIO) + 4993 }.- 

4AD44 sPlO()3 BODE LK mmr er re cer rr en cn re ee ne x/ 

494S . soto loor?; 4993 
ADAS + 4996 /* Unlink a buffer from the available list and mark it busy, 
4AD47 ser lOc)s 4997 * (internal interface?) 

4948 notevail (hp); 4998S x/ 

4949 return(hbe) s 499° notaveil (br) 
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2000 struct huff Kbrs SOS LK me nn ee ee | xK/ 

IOOL £ SOS 

3002 resister struct buf Xrbr3 5052 /* Initialize the buffer I/0O system bye freeing 
3003 resister int spes3 5053 * all buffers and setting all device buffer lists to emrts. 
3004 5054 */ 

8005 rhe = bps i DOSS binitd) 

3006 srg = FS->intes? | 5056 <¢ | 

3007 sr 160) 3 5057 resister struct buf Kbrs | 

3008 rhe-savibeck-Savuforw = rbop-savuforwys 3058 register struct devtab xXdr>s 

wO09 Top-saviforw-raveiback = rbp-savibacky JOS? resister imt is 

WOLO rhe-Shoflads =: BUBUSYs 30460 struct bdevsw xXbdr3 

O11 FPS->inted = srss 9061 

5012 3 9062 bfreelist.b.forw = bfreelist.b_back = 

OD Le cme ne em me cr crt sre eee st cece me ce ae x/ 3063 | bfreelist.aviforw = bfreelist.avi_hack = &bfreelist; 
3014 3064 for (1=03 L<NRUFs itt) < 

S015 /K Mark I/0 comrlete on a auffery release it if i/o is SOAS be = bhufCids 

JO1l6 kK asynchronousy and wake ur anyone waiting for it. JO66 bep-sbudevy = -Lly | 

SOL7 x/ gO&b?7 he-sbladdr = bufferslilds 

3018 iodone(lbr) 3068 bre-sblhack = &bfreelisty 

5019 struct buf Xbrs 5069 he~>b forw = bfreelist.b_forw? 

BOLO £ 3070 ofreelist.b forw-sb_baeck = bry 

IO21 resister struct buf Xribrys | | 3071 bfreelist.biforw = bry 

§O022 3072 be--buflads = BUBUSY: 

3023 rhe = bps | 3073 brelse (hr) » 

8024 if(rbre-Sbuflads&hoMAF) 3074 + 

3025 marfree(rhp)s 2075 i = O; 

IORS rhe-sbuflass =! B_DONES 9076 for (bdr = bdevsw? bde-id_orensy bodret+) € 
3027 if (rbe-sb_uflessfR_ASYNC) | 3077 de = bdp-sdoitahys 

3028 brelse (rbhr)s 3078 if(de) < 

1029 else { I079 dpe->biforw = dry 

3O30 rhe-Sbuflads =-& *“BUWANTELDs 2080 dre--bubeck = dry 

S031 | wakeur (rbr) 3 5081 } 

5032 } 3082 itts 

5033 >} 3083 + 

FOG LM mre rn me me er ee ee cee en ee coe cee ce cn co K/ 5084 nblkdev = is 

9035 . 3085 } | 

JO36 /K Zero the core associated with s buffer. 5086 /K crt rr rr rrr rrr rr err */ 

IO37 xX/ 5087 

3038 clrbuf tbr) 3088 /xX Llevice start routine for disks 

9039 int Xbrs 9089 * and other devices that have the resister 
3040 <¢ 3090 * layout of the older DEC comtrollers (RF» RK» RFy TM) 
3041 redister Xr; 9091 X/ 

3042 redister c3 9092 tdefine IENABLE 0100 

9043 | 7 5093 #define WCOM 02 

53044 Fo o= bp-tbladdrs | 3094 #define RCOM 04 

3045 c = 2563 3095 #define GO OL 

JIO46 do 3096 devstart(be:s devlocy devblky hocom) 

3047 Ket+ = O03 9097 struct buf kbrys 

9048 while (--c)ys 9098 imt Xdevlocys 

3049 > . | 9099 £ : 
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register int Xdry» 
register struct buf xXrbry 
resister int coms 


de = devlocy 
ror = bry 
Kde = devolks /* 
KX--de = prorp-Sbladdrs 7X 
K--dGre = pbop-sbuwcourt» 1% 
com = (€hbcom==8) | IENABLE |: GO i 
(Crbe-sb_uxmem & O83) <2 4)dy 
if (rbp->b_flassR_ READ) /¥* 
com =i RCOMs 
else 
com =! WCOMs 
X--de = coms 
+ 
Lk SSeS SSS SSeS SSeS Se xK/ 
/* startur routine for RH comtrollers. 


#define RHWCOM O60 
#define RHRCOM 070 
rhstart(hbres, devlocy devblk» sbee) 
struct buf Xpbr; 
int Kdevlocy xXabhee; 
{ 
resister imt Xdrgs 
register struct buf Xrory; 
resister imt coms 
de = devlocs 
rhe = Ory 
if(crutyre == 70) 
Kanse = prore-sboxmems 
Xde = devblk; 
Ke--de = prhe-sbladdry 
Ke--de = rphe-Sbuweounts 
com = TENABLE i: GO |} 
((rprp-so_xmem & 03) 
if (rbre- tb _flaesssB_READ) 
com =i RHRCOMs else 
com =! RHWCOMs 
K--de = coms 
> 
/*® exis 'sous abou’ ven 'sate loses’ aves (oben. bako jones’ Ge Iseee: ante abes leben ‘dees (obse)snoesaa¥a' Sosa’ eset -bass dubs lose {aes 
1X 


X¥ 11/70 routine to sallocate the 
KX UNTBUS map and initialize for 
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block address X/ 
buffer address X/ 
word coumt X/ 


command + x-mem X/ 


x / 


block address X/ 
buffer address xX/ 
word count x*/ 
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Si50 xK 3 unibus device. 

SisSi * The code here and im 

Si52 ’ rhsteart assumes that an rh om an 11/770 
5153 *k* is an rh70O and contains 22 bit addressing. 
5154 */ 

S155 imt marlock 

5156 maralloc(abr) 

S157 struct buf Xeabry 

3LlS58 < 

3159 redister il» a; 

JLGO resister struct buf kKbes 

JLGl 

3162 if(crutyre != 70) 

D163 returry 

3164 serléd)s 

9165 while(marlock&BR_BRUSY) 

JI1L166 marPlock =: BUOWANTET!s 
JLh67 sleer(&marlocks FSW)»: 
3168 + 

wILé? marplock =i BURUSY» 

9170 SELOC)s 

S171 be = gry 

gil72 he-sbuflags =! BUMAFs 

JL735 38 = br->bouxmems 

J1L74 for€i=léy itSes 1=t2) 

gL7S5 UBRMAFP—srCitid = ay 

g176 forCatt+? if48% i=t2) 

g177 URMAFP-—srCitid = ay 

JL78 Or-Sboxmem = Ly 

vl7? } 

LEO mr re rn ce ee ce een etn ce wen ee ca os ee a */ 
518i 

5182 marfree (be) 

3183 struct buf xbrs 

3184 <€ 

JL8S 

3186 be-sbuflads =& “B_MAF Ss 

3187 if(maerlock &B_LWANTED) 

9188 Wwakeur (&marloctk ) ¥ 

3L89? marlock = OF 

3L9O } 

et Ct OM a lace ma ae ana K/ 
gL? 

JL9S 7X 

J3194 * swear I/0 

J195 x*/ 

S196 swar(olknoy coreaddr:s counts rdfls) 
vl??? £ 

3198 resister int Xfry 

alo? 
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3200 fr = &swhuf.bufladss 92590 * Raw I/0. The arguments are 

3201 SPI6C)» J2ol * The stratesy routine for the device 

202 while (Xkfr&R_BUSY) ¢< veve kK A buffers which will always be 2@ special buffer 
I2LO3 Kfre =} BOUWANTET J2o5 * header owned exclusively by the device for this rurrose 
3204 sleer (fr, FSW) s 9294 * The device number : 

YL2O5 + J2oud * Read/write flags 

5206 fre = BLUBUSY |: BLFHYS i rdflss ve2uS& €* Essenmtigelly all the work is computing ehysicel addresses 
5207 swhuf.o_dev = swerdevs J297 kK and validating them. 

3208 swhuf.buwceount = — Cecoumb<<5)5 7K 32 w/block x/ Je2uIG 8 K/ 

5209 swouf.bublkno = blknos . 92597 FPhyesio(straty ahr, devy rw) 

3210 swouf.biaddr = coreaddr<<63 7% 64 b/tlock xk/ 3260 struct buf ksebrs 

2 4 1 swouf.dbuxmem = Ccoreaddr= 10) & O773 S261 int (xstrat) (>; 

aeie2 (xXbdevswl(swardeve>+8].distratedy) (&swhuf) » ve62 { 

Wels sr 16) 3 I2635 resister struct buf Xbry; 

3214 while ( (Xfr&B_ DONE )==0) 3204 resister char xbase; 

2b sleer(frs FSWF) s 9269 resister int nbs 

G21 if (xfer sSBUWANTED) I2b66 int ts 

S217 Wwakeur (fr) 3 : J267 

3218 SP 10095 7268 be = 3bry 

gel? Xfe =% “CBRUBUSY: BUWANTED) 5 J269 base = u.u_bases 

S220 returm(xXfP&B_ERROR) $ . 3270 “* 

jeek + 3271 * Check odd bases odd counts and address wreraround 
Goes Lk, See ae Hee eee Se eee ee K/ J2/72 K/ 

Ie wes if (hasesOl [i ueuLlcountsol if haser=basetu.u_count) 
g224 /K make sure all write-behind blocks Je2s4 soto bad; 

S220 ’* on dev (Cor NODEY for all) . D27o ts = (ueu_tsizeti27) & “01773 

9226 * are flushed out, 3276 aif Cueu_ser) 

See? OK Cfrom umount end urdate) vel Z | ts = OF 

228 KS 9278 nb = (base>s6) & 017773 

3229 -hbflush (dev) | 3279 /*% 

230 £ v280 xX Check overlar with text. (ts and mb mow 

g251 redister struct buf Xbrs 2281 *X in 64-bete clicks) 

a, 5282 xK/ 

y253 Lloor?s J283 if (nb < ts) 

254 srl&()3 J23g4 goto bad; 

5235) for (br = bfreelist.av_forws br != &bfreelistys | 5285 /*X | 

56 bre = bep-Saviforw) £ 9286 xX Check that transfer is either entirely in the 
Deo7 if (be-Sb_flass8R_DELWRI && 9287 * dats or in the stack: that iss either 

32383 (dev == NODEViidey == br-sbidev)) £ 7288 xX the end is in the data or the start is in the stack 
3259 be-Sb flags =i BLASYNC?s w2B9 * Cremember wraeraround was elready checked), 

J240 notavall (bp); I2IPO x/ 

241 bwrite bry ba Oh a | if (((€(basetu.u_coumtd226)801777) == tstu.,u_dsize 
I242 soto loors JeP2 £% mb < 1024-u.,u_ssize) 

W243 > 5293 soto bad; 

244 3 294 SP1GOC) 3 

WAS sr loc); J29o while (br-sb_flagds&R_BUSY) ¢<€ 

246 } JePS be->p_fleds =i B_WANTED? 

SEA? LK mem re er rr ee eee x/ D297 Sleer (br, FRIBIO); 

3248 5298 } 

S249 /X 5299 be-sbuflags = B_BUSY : BLFHYS i rwy 
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JOO bpe-sbodev = devy I300 # 

T3041 /X S351 /X 

9302 * Comreute Fhysicel address by simulating 9352 XK/ 

OS xX the sedmentation hardware, 3353 

5304 x/ 3304 /X 

ISOS be-shladdr = hase&O77>s 53539 * RK disk driver 

W306 base = (u.-u_ser? USA? UISAD-2rEinbs>7] + (mbé0177)¢ 5356 */ 

307 be-sbhiaeddr =+ based, 3397 

3308 Dre->boxmem = (basess10) & O77; 53598 #include "../raram-+h" 

3309 be-SbLblknmo = lshift(u-u_offsets —-9)+3 5359 #tinclude °,./buf.h" 

3310 be-Sboweount = -((u.u_countes1) & O77777)5 53360 #include ".,/comf.h’ 

9311 he-shblerror = OF 3361 #imclude *,../user.h* 

Ue12 Usu_Procr-sreiflad =i SLOCKs ; JI562 

W313 (Xstrat) (hr) 3343 #define RKADIR 0177400 
3314 SP16()35 3364 tdefine NRK 4 

o315 while ((¢he-sb_flags&éR_DONE) == 0) 3369 #define NRKELK 4872 
I316 sleer (br, FRIBIO) 5 3566 

3317 Uelueracr-srpwflad =& *SLOCK; 3567 #define RESET 0 

3318 if (be-sbuflass&BUWANTED) 3368 tdefine GO O1 

I319 Wakeur Cir) 3 3369 #define IRESET O14 
S20 - sr lO ¢) 3 33790 #define IENABLE 0100 
3321 be-Sbuflads =& ~(BUBUSY!BUWANTED) ¢ ee Jo/L #define DRY 0200 

ra WUeuucount = (-be-Shbresiddacds 3372 #define ARLY 0100 

aa Ae CaS geterror cbr) § 3373 *#define WLO 020000 
324 return? - 3374 #tdefine CTLROY 0200 
535259 bad? 7 J37o 

26 Ueuerror = EFAULTSs 53376 struct £ 

3327 + Doss imt rkds3 

ra Gd = I A ileal onl eakekaateeeeteat eat ealuahetenteateatententemteteatemeatann x/ I378 int rkers 

a Pea 3379 imt rkhess 

W330 /K 3380 imt rkwes 

9331 % Pick ur the device’s error mumber and rass it to the J381 imt rkheas 

5332 * users if there is an error but the number is 0 set a 3382 int rkday 

9333 *%* senerslised code. Actually the latter is always true 3583 

53334 * because devices don’t vet return srecific errors. SIDE wren rere ee ee ce ar we as ae cen te ete tn ae x / 
3335 KS 5383 

9336 deterror(Cabr) 9386 struct devtab rktabs 
5337 struct buf Kahrs 3387 struct buf rrkout 
3358 | 5388 

W35F register struct buf Kbr; 33589 rkstratedyl(abr) 

2340 5390 struct buf XxKabrs 

3341 be = girs JSPL € 

3342 if (be-Sb flads&B_UERROR) 3392 register struct buf Xbrys 
I343 if (Cu-ulerror = br-sblerror)==0) ISPS resister Xacs Xels 

3344 Uelherroar = EILOs ISP4 imt dy 

3345 } GSPS 

RAG LR meee mer mn me rs mre men ce en ce ee se eee ar ete sn ee a */ ISPS Oe = abr 

347 aa97 if (be-sbuflaess&B_PHYS) 
3348 3378 maralloc (hr) 
33549 3399 d= be->Sbudev.duminar-73 
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2400 if(d <= 0) | 3450 


3401. go= Ls S451 rkintré? 

3402 if (be-Shbublkno *= NRKELKXd) 3452 ¢ 

3403 | heeSb fleds =i BLERRORs 93453 resister struct buf xXbrs 

404 iodone (br) $ 34354 

34035 return 3455 if (rktab.diactive == 0) 

SAS >} 3454 returns 

3407 bee-savuiforw = OF 9457 be = rktab,dractfys 

S408 sr 15 ()3 3458 rkteb.d_active = OF | 

3409 if (rkteb.diactf==0) : 3459 if (RKADDTR-Srkes < 0} £ /k error pit */ 
3410 rhtabsdisectf = brs 34560 deverror(bes RKADTR-srkers RKADTIR- = rk.ds) 5 
3411 else 3461 RKADTIR-Srkes = RESET!GO? 

s412 rhtab.diactl-saviforw = ory 3462 while CCRKADTDR-srkes&CTLRDY) == OG) 3 
3413 rktep.diactl = br; 3463 if (ttrktab,drerrent <= 10) ¢ 
JIe14 if (rktah.diaective==0) 3464 rkstart()» 

34135 rkstart()s | 3465 | returns 

5416 SP lO) $ 3464 a 

3417 3 D467 be-sb flass =: BUERRORS 

EL LK ree ee i te ee xK/ | 3468 +} 

419 | D469 rkhtab.,dlerrent = Oy» 

5420 rkhaddr(br) . | 3470 rhtabs.dlactf = be-saviforws 

5421 struct buf xbeys si 7 3471 Lodone (br) 3 

3422 < | . | 3472 rhstart()s 

3423 resister struct buf rs | . 3473 } 

424 resister int by DATA J. SP Re Se eS es err x/ 

5425 int de m3 | . . 3475 . 

S426 | . 54746 rkread(dev?) 

3427 Po= pry | 3477 £ 

5428 b = p-Shblknos | 3478 : 

5429 m= fFesthbidev»eduiminor ~— 73 3479 © rhyusiot¢rkstratesy, &rrktufy devs BUREAIID ? 
5430 if (m <= O) 9480 } 

i 2S i= p-tbhideveduoiminors BEE 1L 1K Smee te ee et ee iri ements xK/ 

3432 else ¢ | 2482 

3433 gd = lrem(br, mm)» 2483 rkwrite (dev) 

3434 b = Idivtbs m3 3484 £ 

2435 + | | I485 

I4ASS returnm(deii3g 3: Cb/12)2£4 1 bKL2)3 3486 Phyusiodrkstrstesy: Errkbufs devs BLWRITE) S$ 
3437 } 5487 } 7 | 
Wat: T= TY Ae Sl altel eal an leet letnatealeaheatuatmatentoshenientententeatententeated x/ ABB PR mmm rr ce ee mee en ete ees es emt een oan x/ 

5439 2489 

3440 rkstartd) | | 5490 

3441 < 3491 

3442 — resister struct buf xXbrs : 3492 

3443 3493 

3444 if ((bre = rktab.diactf) == 0) | 3494 

S445 returns . 3495 

1446 rhtab.diactivettys SAAS 

447 devstart(bres &RKADUR-srkda, rkhaddr(br), OO)» 3497 

2448 } ; 3498 

IAAP SK Sere a a ae a a x/ 3499 
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May 24 12354 1976 wunix/file.h Page 1 May 24 12354 1976 wnix/filsys.h Page Ii 

3u00 /xX 5550 /* 

3201 * One file structure is allocated Jogl * Definition of the unix surer block. 

3302 €K for each oren/crest/rire call. Judge kK The root surer block is allocated and 

3903 % Main use is to hold the read/write JoOs5 kk read in 1init/alloc.c.e Subseauently 

2304 6 rointer associated with each oren JJ94 * @ surer Olock is allocated and read 

3005 -#’ file, Jggd KK with each mount (smount/sys3.c) end 

S06 K/ JING * released with unmount (sumount/sys3.c). 

3907 struct file JId/ * A disk block is rirred off for storade. 

GI08 £ vduG * See alloc.c for general alloc/free 

SO? char f_flady gag? kK routines for free list and I list. 

ILO char ficoumt ¥ /* reference count */ 3I6Q xX/ 

sa er a8 int f_inode: /*® Fointer to inode structure */ 3561 struct filsys 

gale cher XfioffsetlC2]3 /* read/write character rointer K/35562 

3313 + fileCNFILEIs 3963 imt Ss 1isizey 7* size in blocks of I list xX/ 
AD fk ree a eae ae eee x/ 9964 int s_fsizes /* size in blocks of entire volume */ 
ie JIJ69 int s unfree; /* number of im core free blocks 
g2ald /K flads XK/ IIOS C(hetween O and 100) x/ 

3317 ##define FREAL Ol 3967 int s_freeLlOOds /xk in core free blocks X/ 

3318 #¢define FWRITE O2 3468 int Ss _ninodes /X ruumber of im core I modes (0-100) xX/ 
JIL? #define FRIFE 04 396% int Ss inodeCllOGIs/xk in core free I nodes x/ 

a ba BA 8) 3970 char s flocks /*® lock during free list manirulation */ 
ha hs Ba gu/7l char srilocks /*® lock during I list manirulation xX/ 
a be a Juve char s_fmod; /*X& surer block modified flag X/ 
2S : Jdg/5 Char su ronlyys 7* mounted read-only flags x/ 

I 4 93974 aint s _timef2]3 /*% current date of last urdate x/ 
Ma ar Babe) S573 aint radCS0O7;3 

B26 wash +3 

dae 7 | DIFF LK mmm rr mn K/ 

ha be Ba yuaZ73 

aI? GIP? - : 

330 bats £6) as 

S534 5581 ee 

ao Pd gN82 | 

ha a JIBS _ 

J34 . . 3uIB4 7 

a ba I | | . Jue 

HISS IIE8G 

S337 9987 

W338 JI88 

WI? Joo? 

340 JIPO 

sh 4 iL val a aa 

Io42 va bo he a 

II43 IIPS 

a 44 394 

SIA ba ba hae) 

BI45 DIPS 

a er SIP? 

3348 sug 

IAP IPP 
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509 
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614 
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616 
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534636 
3637 
5638 
5639 
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1% 

* Inode structure as it 6errears on 

* the disk. Not used by the system» 

* but bys thinss like checks dfy dump. 
K/ 


struct inode 
< 

int i_modes 

cher iinmlink? 

cher iwids 

cher L_sid3 

cner 1_sizeOs; 

cher Xiuisizel; 

int taddr(C8ids 

imt i_atimeC2d3 

int i_mtimel2ds 
+3 | 
Me ei ee ee ee K/ 
/* modes x*/ | 
tdefine TALLOC 0100000 
#define — IF MT 060000 
#define TFRIR 040000 
tdefine IFCHR 020000 
§define IFBLK 060000 
#define ILARG 010000 
#tdefine ISuID 04000 
#define ISGIL 02000 
tdefine ISVTX . 061000 
$define IREAL 0400 
tdefine IWRITE 0200 


#define TEXEC-. 0100 
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5650 
5651 
5652 
5653 


9654 


3OUd 
Lae 


JOU7 
7658 
J659 
3640 
JOOl 
JO662 
3663 
3664 
Y665 
O66 
J667 
7068 
J569 
3670 
JO7 1 


V672 © 


I673 
3674 
JO7a 
2676 
O77 
7678 
JO7P 
5480 
V681 
J682 
3483 
9684 
3685 
3686 
3687 
3688 
3689 
IHIO 
v691 
JO92 
JO9S 
3694 
JO69S 
3696 
9697 


9698 


JO99 
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/*& The I node is the focus of all 
% file activity in unix. There is 8s unigue 


Ae? Ge WE Sed 


SE 3 3e 3S 3S HS 


xK/ 
struct 
¢ 
cher 
cher 
int 
imt 


imt 
char 
char 
char 
cher 
cher 
int 
imt 


Pile» 


Totes 


text files 


From 
e oe wow BEE 


inode 


i_fles; 
Locoumts 
i_.devy 
Lomumbe pr 3 


i_modey 
Lunlimnks 
Luids 
i_sgids 
i.sizedy 
Xiwsizel 3 
1saddrfCSis/x 
i_tlastrs 


+} inodeCNINOUEI? 
DM ins ar Sos Sas el case aS 7 “/ 


/*% flags x/ 
define ILOCK OL /xk 
zrdefine IUFT O02 /& 
ydefine IACC QO4 /X 
#define IMOUNT O10 /x 
define IWANT O20 /xX 
define ITEXT O40 /%x 
/*% modes X/ 
#define TALLOC 010000 
define IFT 040000 
define IFRIR 040000 
#define IFCHR 020000 
#define IFBLK 060000 
gdefine ILARG 010000 
define ISUITD 064000 
#define ISGIn 02000 
$¥define ISVTX 01000 
define IREAQ 0400 
#define IWRITE 0200 
#tdefine IEXEC 0100 
under licence f 
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1% 
1% 
7% 
7% 
1% 


1% 


i 
af 
i 
a 
S 
i 


fe) 


TOR 


imode allocated for each ective filer 

each current directory, each mounted-on 

and the root. Am inode is ‘named’ 
by its dev/inumber rair, Ciset/iset.c? 

mode ons 


from rermanent inode on volume. 


is pead in 


reference count */ 

device where inode resides X/ 

i nmumbery i-to-1 with device 
address x/ 


directory entries %/ 

owner X/ 

srour of owner X/ 

most significant of size x*/ 

lesst sig xK/ . 

device addresses constituting file x/ 
last losdical block read (for 

: resd-ahead) x*/ 


mode is locked */ , 

node has been modified %/ 

node access time to be urdated x/ 
node is mounted on x/ 

ome Frocess waiting on loch xK/ 
node is Fure text Frototyrpe kK 


7% file is used x/ 

/* tyre of file x/ 

7* directory xX/ 

/* character srecisl x/ 

/X% block srecials 0 is resular xX 
/%* larse addressing algorithm xX/ 
/* set user id on execution */ 

x set sroup id om execution x/ 

m Save swerred text even after use x*/ 
/*& read: writes execute permissions x/ 


AY 
¢ 


cr 
am 
fa 
it 
ey) 
et 
A 
of? 
3 
rr] 
hs 
iy 
q} 
ck 
be | 
pu. 
fi 
C3 
2 
= 
mt) 
QV 
ae 
iC 


May 


3/700 
3701 
3702 
3/03 
w704 
2705 
3706 
3707 
2708 
3709 
3710 
w/11 
w/12 
w/1S 
3/14 
2/15 
716 
3/17 
J/18 
ee 
ob 7 a Q 
3/21 
WI 22 
5723 
3724 
3725 
726 
S27 
3728 
a aa 
3730 
7 SL 
ISS 
reer! 
3/34 
If SS 
7 SO 
737 
7738 
3739 
3/740 
3/741 
W742 
LAS 
744 
LAS 
3/46 
3747 
3/48 
3749 


Rerr 
Cory 


Shee 


24 12354 1976 wunix/sys2.c Fage i 


¥ 
#imclude "../raram.h* 
#include "../syustm-.h" 
#include "../user.h" 
#ineclude ",./reg.h" 
#imclude "../file.h' 


#include ee/inode.h" 


/* 
K read system call 
K/ 
read() 
{ 
rawrCFREAD) 5 
} : 
De aaa ene a a a x/ 
“xX 
XK write system call 
K/ 
write () 
{ 
rawr (FWRITE) s 
+ 
DI mec me er nr ceca ce ce ce ee ae en ce ee se X/ 
“xX 
KX common code for read and write calls: 
KX check rermissionss set hasery counts and offsets 
*X and switch out to readis writeis or Fire code. 
K/ | 
rdwr (mode) 
{ 
resister Xfry, mé 
m = modes . 
fe = dgetfCu.eu_arOCROd)s 
if(fe == NULL) 
returny 
if((fr-sfelflag&ém) == 0) £€ 
Welerror = EBADIFs 
returny 
+ 
Ue-uuihase = u,u_srslods 
Wecount = uesuclarslids 
ueuisesflae = OF 
if(fe-sf_uflassFRPIFE) £ 
Lf (m==FREAT) 
reade(fr)s else 
Writer (fr); 
oduced under licence from the Western Electric Comranyy 
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9750 
o731 
w7O2 
3733 
3734 
7 
376 
Dia 
3738 
J/ OP 
3760 
w/761 
3/62 
I763 
3764 
T7693 
JI766 
3707 
7768 
3/769 
3770 
J/ 71 
3772 
I773 
3774 
a a) 
3/76 
re A 
3778 
wJ779 
3/780 
w/781 
3/782 
3/783 
3/784 
3/785 
3/786 
2787 
3/788 
3/89 
3790 
w/ PI 
U7 P2 
IL PS 
w/P4 
IAPS 
IAPS 
3A >?/ 
w/ 98 
IPP 


24 12354 1976 


unix/sys2.c Pade 2 


+ else <{ 
ueu_offsetlid 
ueu_offsetlO] 
if (m==FREAD) 

readi(fr-«f_inode)s else 
Writel(fr-sf_inode) s 
deadd(fr-:f_offsety usu_ars(C1ld-u-u_count?)s 


fe->f_offsetLidys 
fre-ofiuoffsetLOdy 


Hot 


+ 
Uet_arOCRO] = wueu_arslld-u-.u_coumts 


ee K/ 


1% 
xX oren system call 
x/ 
oren() 
£ 
resister XKiry 
extern uchary 


ire = namei(Cauchary O)3 
ifCir == NULL) 

returns 
useuclarsll itts 
oreniCirs usu_arslidys O)d3 


ee ee ee ae ee x/ 


register Xirys 
extern uchars 


ir = nmamei(C&uchars 1)» 
ifCirp == NULL) ¢€ 
iffu.eu_error) 
returrny 
ir = maknode(ueu_arsalLilT&0O77778(VISVTX) Ds 
if (Cir==NULL) 
returns 
orenl(ires FWRITEs 2)+3 
+ else 
orenilCires FWRITEs 1)3 


[Ko wane nen nnn */ 


X 
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5800 xX common code for oren and creat. 

S801 * Check rermissionsy sllocate an oren file structurey 
S302 ék* and call the device oren routine if an, 

5803 xX/ | 

5804 orenl(iry modes trf) 

S805 amt Kips 


5806 7 
5807 resister struct file xfrs 
3308 resister xkKrirys m3 
S309 int a3 
3810 
Hil Tir = ify 
w812 m = modes 
S813 if(trf != 2) £¢ 
—6B14 if (m&FREATD) 
5315 acecess(riry,y IDREALD) 3 
5316 if(m&FWRITE?) ¢ 
33417 access(riry IWRITE)s 
4818 if((rip-si_mode&gIFMT) == IFQIR> 
5819 Weuierror = EISDIR: 
4820 } 
5821 > 
3822 if (ueulcerror) 
YB235 soto outs. 
oe 4 if (trf) 
53825 itrume (rir) 3 
23826 Preletrir)s 
$3827 if ((fep = falloc()) == NULL) 
239328 soto outs 
B29 fr->fouflagd = m&CFREADIFWRITE) $s 
830 fe-=fwinode = rirys 
5331 i = yueu_arOLROds 
B32 oreni(Crires m&FWRITE) s 
38333 if(ue-u_error == Q) 
23834 returns 
5835 useulofilelLid = NULL? 
3836 fe-=f_count-—sF 
5837 
5338 out: 
3839 iputCrir)s 
5840 } 
SSA SK eer me er rrr rr nee xs 
3842 
3843 /X 
3844 % close sustem call 
3845 */ 
3846 close() 
38347 <£ 
7848 resister kre 
7849 
Rerrsduced under licence from the Western Electric Comeanur NY 
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May 24 12354 1976 unix/sys2.c Pade 4 


5850 fe = getfCu.eu_aroLRod) 3 


385 1 if (fe == NULL) 

3852 returny 

3853 ueuofileCu.,u_arOLROI] = NULL» 
9854 closef (fr); 

5855 } 

ral] = {a ]~ Tf S al ala a oal oaeloe hah eatmteteeiehaelentententemtemteabeeaten x/ 
5857 

Jeus /XK 

3859 * seek system call 

3860 *X/ 

5861 seek?) 

3862 ¢ 

73863 int mC2I3 

7864 resister XKfrr t? 

3865 

J866 fr = sgetfCu.u_arocRod); 

3867 if (fe == NULL) 

3868 returns 


1869 if(fe-sf_flassFRIFeE) <£ 


7870 Ueuerror = ESFIFE? 
3871 returns 
1872 + | 


5973 t = u.ucarslil} 


MetiarselOding9s 


2875 nfCijd = 
3876 nCOJ = u.,uiarglLOd>>73 
J877 if(t == 93) | 
3878 nCOJ =& 07773 
3879? +} else 
5880 mnClJ = us,u_arslOlds 
3881 nCLOJ = OF 
3882 | if¢ti=0 &% nCLILO) 
2883 nCOT = -135 
53884 } 
38s switch(t) < 
9886 . 
-§887 case 13 
3888 case 43 
3889 nCOJ = fre->f_offset([0O]s 
2890 Seadd(nys fr-sfioffset£1iJ) + 
IBS 1 breaks 
3892 
IB9S3 default: 
I8P4 | n{COl =¢ feersPuinode-Fi_sized20377 > 
3B9S gapadd(ny fr--f_iinode-Si_sizel)s 
I896 
3897 case 03 
3898 case 33 
3899 ; 
on from the Western Electric 
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wP?OD 
3P71O0 
I711 
3912 
IPL 
714 
wF1LS 
I714 
IPL7 
I718 
IP719 
3720 
bP 1 
3922 
IP23 
IP 24 
SPLS 
P24 
IP 27 
IP2B 
IP29 
PSO 
IP SL 
IPSS 
IPSS 
3734 
IPSS 
SPSS 
IP S7 
3738 
IPSP 
IF4Q 
PAL 
IP42 
P43 
PAY 
SPAS 
3?46 
JPA? 
3748 
PAD 
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} 
fe->f_offsetClid = nfs 
fe-=f_offset£CO] = mfOTs 
+ 
[RK mmr mr reer er ern 
/*k link system call 
x/ 
link) 
{ 
resister Kies Xxpy 
extern uchar? 
ir = mameiC&ucharry 0)3 
ifGir == NULL) © 
returns 
Lf(irer-si_nmlink == 127) <¢ 
Weuerror = EMLINKs 
gato outs 
+ . 
if(@ir-s1i_mode&gIFMT)J==IFIIR 
goto outs 
“* 
KX unlock to avoid rossibly 
x / 
Lpe-si_flaeg =% YILOCK? 
Weliiairre = ueu_arsCids 
xe = mameiCkuchary 1)3 
if(sxe f= NULL) ¢£ 
Welerror = EEXIST; 
Let Cnr) ¥ 
} 
if(usucerror) | 
soto outs 
if(ueulepdir-Ssi_deyvy != ip eit 
Leut@u.,u_pdirds 
“Ueluierror = EXTEV; 
gota outs 
> 
wWdir¢ir)s 
Leo-seiunlinkttys 
leo-si_flag =i IUPD; 
aut $ 
TrutCir)s 
>} 
FRO Ee eae mae ee aot oe en net ich ree ere ie 
7X 
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a] 


K/ 


&& Isuser()) 


handing tne name. 


dev) <€ 


x / 


Electric Comranys 


Mey 24 I 


3950 xX 
5951 */ 
5952 mkn 
IPOS £ 
39794 
IPOS 
3956 
IPS7 
3938 
aP3P 
39460 
3961 
59462 
3963 
3764 
3966S 
3966 
3967 
39°68 
3969 
3970 
oF71L ot 
IP/72 
uP7S3 } 
3974 /X 
IO? 
397& /X 
3977 xX 
I978 xK/ 
JP7? ssl 
w?7BO £€ 
J?P81 
UPB2 
3983 
3784 
IP78S 
3986 
5987 
3988 
I?7B9 
IPPO 
PPL 

Hal ar aed 
IPOS 
IPP4 
IPS 
IPPS 
ral dr a ae 
IP9B /XK 
3999 
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mknod system call 
od } 


register Kips 
extern woeharys 


if(suser()) <€ 
FP = mamelC&uchary 1)3 
ifCir f= NULL) ¢< 


“el_error = EEXIST? 


goto outs 


} 
} 
if(u.uerror) 

returns 
ir = maknode(Cueu-ars£C1]) » 
if (€ir==NULL> 

returrny 
ip-siwaeddr(COd = weulars[2Js 


+ 
¢ 


TPutcir)§; 


sleer sustem call 


x / 


mot to be confused with the sleer internal routine. 


er () 
char xkdf2 15 
sel7 dc) 5 


dCOJ = timeloOds 
aClj = timelids 


deadd(ds uweu_arOLRO]) 3 
While(decmre(dLOJ:, dilds timelLOlJy timelLlJ)> = 0) ¢<¢ 
if (deceme(toutLOdy toutClis timelLOl,s timelld)> <= 
deemeCtout£LOly toutCids dlOd, d£1I) = 0) £ 
toutCod = dlO7s . 
toutlid = a@Lids 
} 
Sleer (touts FSLEF) s 
} 
srP1lO0)35 
eoleakaatenteelandantententeabeetentententententententantentenestantanten K/ 
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May 24 12155 1976 unix/sys3.c Fase 1 
6000 # | 

4001 #include "*../raram.h* 

S002 #include ".,./systmeh" 

4003 #include "../res.h" 

5004 #include "../buf.h" 

4005 #include *../filsys.hn" 

4006 #include "../user.h® 

5007 #include ".-/inode-h' 

4008 #include "../file.n" 

45009 #tinclude "../conf.h" 

45010 

S011 /x 

4012 * the fstat system call. 

5013 */ 

5014 fstat) 

6015 <¢ 

5016 resister Xfrys 

5O17 

4018 fe = setfCu,uarOCRQIJ)» 

S019 if(fre == NULL) | 

4020 returns 

SO2 1 statitfre-2fiinoder ueutars[lOd)s 
6022 } | 

MO2S LX Sere SSeS eS SS See Soe xK/ 
5024 

4025 /* 

59026 * the stat system call. 

5027 */ 

5028 stat) 

6029 £ 

46030 resister ir; 

4031 extern ucnar3 

5032 

4033 if = nmameiCauchars OO)» 

4034 ifCir == MULL) 

$035 returns 

KOSS stetitie; ueurares[id) ; 

4937 iput Cir) s 

5038 } 

EDS LM mre te ee ee x / 
5040 

5041 /x 

5042 * The basic routine for fstat and stat; 
4043 *% set the inode end rass arrrorriste rarts back. 
5044 x/ 
045 stati(Cirs ub) 

46046 int Kir; 

45047 £ 

5048 register iy Kors ker; 

45049 
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6050 ijurdat(irs timed: 

6051 be = bread(@ie-si_devs Idivdip-sicnumbert3l:, 16))3 
6052 cr = brp->blaeddr + 32klrem(ire->i_numbert3l; 16) + 243 
6053 ip = &€ip-Si_dev); 

6054 Ffor(i=0O7 atlas it+td ¢ 

4055 suword(ubs Kirt+t) § 

4056 wn =+ 25 

6057 + 

6058 for€i=O7 it4s itt) £ 

6059 suword(uby Keoret+t) 3 

6060 | wo =+ 23 

6061 } 

6062 brelse(br) 3 

6063 } 

56064 SK mmm mm rrr rrr rn x / 
6065 

6066 /* 

6067 * the dur sustem call. 

6068 *X/ 

56069 durd) 

6070 ¢ 

6071 register iy Xf? 

6072 | 

6073 fr = setftu.u_arOCROJ) 3 

6074 if (fr == NULL) 

60735 returny 

6076 if (¢i = ufallocd)) <= 90) 

6077 returns: | 

6078 weuofilefLild = frs 

6079 fr->ficounttts 

6080 } 

6081 J * cose ence rere cove ence cove core wees 61-4 t800 ener a.18 wens ney Sieh Gree Hh+e ston SERe BENE sees SOLe apne con sees xK/ 
6082 

6083 /xX 

6064 * the mount systen call. 

6085 */ 

69086 snmount?) 

6087 <£ 

4088 int d3 

6089 resister Kips 

6090 register struct mount XmpP» Ksmp3 
46091 extern uchar? 

6092 

5093 gq = getadevd) § 

5094 if Cu.e-u_error) 

6095 returns 

6096 ueuidire = wureu_arsalids 

5097 ip = namei(C&auchary OO} 

46098 ifCir == NULL) 

6099 returns 
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6100 if(irp-Pi_count!=1 fi (ip->i_mode&(CIFBLK&IFCHR) )!=0) 6150 urpdate()3 

4101 soto outs 6151 d = gdetmdev (ds 

4102 sme = NULLS: 6152 if(ueu_error) 

4103 for(me = &mountlLOTs me = &SmoumtCNMOUNTI + mett+) £ 61353 returny 

5104 if(me-smebufe !'= NULL) 6154 for(me = &mountCO]s me <= &mountCNMOUNTIs mret+t) 
61053 if¢d == mp-smedev) 6153 if(mp-sm_bufe!=NULL && d==mp—->m_dev) 
5106 goto outs 6156 goto founds 

4107 + else 6157 useu_error = EINVALSs 

4108 if(smp == NULL) 6158 returny 

4109 sme = mrs 6159 

46110 } 6160 found? 

Sit114 if(sme == NULL) 6161 for(ir = &inodeCOl]> if = &inmodeLNINODEIs iett) 
S112 soto outs 6162 ifGie-Sicnmumber!=0 38% d==ip-si_dev) <€ 
S113 (Xbdevswld.dumaJor].-d_oren)ddds tu,u_arsl2d)s 6163 Useuierror = EBUSYs 

4114 ifCus-u_error) 6164 returns 

461135 goto outs 6165 } 

6116 m= = bread(ds 1) 5166 (khdevswid.dumaJord.d_close) (dy OO)» 

117 iffue-u_error) ¢<€ 65167 P= mpo- sm inodrs 

4118 brelse (mr) 3 6168 le-Si_fledq =& “IMOUNT? 

SLI9 goto outls 6169 iputdir) » 

S120 + 6170 iP = meo-Smwbutes 

4121 Smreo-smiinodre = iF 6171 meo-omubutfe = NULLS 

4122 Smre-smidev = das | 6172 brelse tir) 

HL23 smre-ompufe = stetblk C(NODEY) ¢ 6173 } 

S124 becory¢mp-sb_addry smre-imibufe-sbladdry 256) ys GL/ 4: 2K SS Ss Se SSS See eee eS K/ 

61235 Sure = smre-emibufe-sbladdrs 6175 

S126 smr-sswlilock = O03 | 6176 /* 

S127 smr-ssiflock = O% | | 6177 * Common code for mount and umount. 

4128 smr—--s_ronily = us, uiargfle2] & is 6178 * Check that the user’s argument is @ reasonable thins 
4129 brelse(mr)s 6179 *& on which to mounty and return the device number if so, 
4130 leo-ei_flag =! IMOUNT$ 6180 */ 

S131 Frele cir) 3 6181 setmdev() 

S132 returns 6182 ¢<€ 

4133 6183 resister ds Kirys 

5134 out; 6184 extern uchars 

4135 Weuerror = EBRUSYs 6185 

4136 outl? 6186 lr = nmamei(Suchary OD» 

4137 iputcir)s 6187 ifCir == NULL) 

4138 } 6188 returns 

EL SP LK mere ree rere cr te re me rt ore ete et ore ern ce co */ 6189 if(Cir-ti_mode&IFMT) != IFBLK) 

4140 6190 us,uierror = ENOTELKs 

SL4Al /xX 6191 gd = ip->i_laddrloOds 

4142 €K* the umount sustem call. 6192 ifCire-SiceddrCOJ.dimajor *-= mblkdev) 

4143 */ 6193 Useuerror = ENXIOs 

5144 sumount() 5194 LreutCir)s 

6145 <£ 6193 return (d)s¢ 

S146 imt ds 6196 } 

45147 resister struct inode Kir; GID (Ker m rm rr rrr rrr rrr ern K/ 

5148 resister struct mount XKmrys 6198 

51LAP 5199 

Rerroduced under licence from the Western Electric Comranyy, NY Rerroduced under licence from the Western Electric Comrarnysy NY 
Corsrights J. Liomsy 1976 Copyrights J. Lionss 1976 


Sheet 61 Sheet 61 


tau 


&200 


ah Tad 
A224 


4222 
ed dese Five doe 


H232 
5233 
5234 
235 
5236 
{237 
4238 
4239 
8240 
241 
§242 
{243 
5244 
S243 
SLAG 
§247 
4248 
249 
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241 


ff 
7X 
K/ 


£include 
> #irs 


#1 
Fir 


#€include 


#ir 


1% 


3% MM HM IE HM HM MH 


x / 
res 
str 
{ 
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",/raramen" 
clude "../inode.h" 
clude "../user.h" 
Clude ".-+/hufeh" 
",+/conf.h*® 
a 


clude "../systm.h* 


Read the file corresronding to 
the imode rointed at by the argument. 
The actual read arsuments sare found 


ramms abe J mew + 
WGP bbe GaP bee? he See or? e 

core address for destination 
byste offset in file 

mumber of bytes to read 


read to kernel/user 


in the 
WWo3sse 
u_offset 
Wcount 

u_~sedflg 


aditair) 
wet inode XKairs 


int x*kors 
int loany 
resister 
resister 


Oris omy 
dry ms 
struct inode Xirs 
iP = B1RP3 
iffu-eucount == 0) 

returns 
le-sicflas =i IAcC$ 


ifC@Cirp->si_mode&’IFMT) == IFCHR) ¢ 


(Xcdevswlir-si_addrlOd.d_maJjor].d_read) (ir-sicaddrf[O J) > 


returns 


do ¢ 
lon = bm = Ilshift(u.u_offsets, —-9)3 
on = useucoffsetC1id & O7773 
m= mintSi2-ony weu_count) § 
if(Cir-si_mode&IFMT) != IFBLK) ¢€ 
dm = deeme(ie-si_sized0&0377>» 
ueuioffsetlO dy, 
ifddn <= 0) 
returns 
m= mint€ns drs 
a7 6<C Chm = bmaer dirs 
returns 


lond) == 


unger iicence 
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ueu_offset£1IJ)5 
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6250 
6251 
62352 
6253 
6254 
6255 
6256 
6257 
6258 

2u? 
6260 
6261 
6262 
6263 
6264 
4245 
6266 
6257 
6268 
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
6277 
6278 
6279 
6280 
6281 
6282 
6283 
6284 
6285 
6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
6297 
6298 
6299 
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K/ 


unmix/rdwriec Fase 2 


dro = ip->biacdevys 
+ else ¢ 
adn = 


rablock = 


ip-sicaddrlOlds 
brit ¢ 
} 
i? (ie-Si_llastrti == lbn) 
be = preadaeldn:s Orns» raniock?)s 
else | 
be = bread(drs orm) 3 
lpen-siclastr = lin? 
iomove (bry ors rmy 
brelse (br )¥ 


+ whileCu,u_error==0 && 


K_REATI) + 
Welicoumbtl=O) 3 


ane net cere sete oes snes oven cote och seen ents cons Sus exes come cate ents eens ever eens cane sens eat eee wen K/ 


Write the file corresronding to 

the inode rointed at by the erdument. 
The actual write arduments ere found 
in the variables? 


W_hsse core address for source 
u_offset bute offset in file 
Hocount number of butes to write 
uisesfle write to kernel/user 


Writei(air) 
struct inode Xair; 


{ 


Sheet 62 


imt Xbp? 

imt rye ory 

resister dry brs 

register struct inode Xir3 


if = gir? 
ir--sSi_fles =: TACCiIURD: 


if(Cir-Si_mode&sIFMT) == IFCHR) ¢ 


(Kedevswlir-si_addrlCOl.d_matorid.duwritea) (ip- >i 


returns 


‘ 
4 


if (€u.s,uccount == QO) 
returns 


fo <{ 
bri Ishift(u.eu_offsets -—9)3 
or ueuoffsetLid & O7773 
m= mindSt2-onry wueu_counmt)3 
Lf €Cir-Sicmode&gIFMT) != IFBLK) ¢ 
if (€bn = bmer ips brid) == QO) 
returny 


ou 
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6300 
S301 
5302 
6303 
5304 
63505 
5306 
5307 
5308 
4309 
6310 
S311 
6312 
S313 
:314 
315 
4316 
5317 
5318 
319 
320 
S321 
6322 
5323 
S324 
325 
6326 
6327 
328 
5329 
6330 
S331 
5352 
6333 
5334 
{335 
53356 
5337 
5338 
{339 
5340 
S341 
5342 
{543 
5344 
4345 
5346 
5347 
5348 
5349 
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dia = ip-si_devy: 
+ else 
doa = ip-si_caddrCods 
if(m == 512) 
be = getblk (drm: omds else 
be = bread(drsr ori) + 


iomove(Dprs ory me B_LWRITE) » 


ifCu.u_error. != QO) 
brelse (br) y 


bawrite (hr) 

bdwrite (hr) s 

Lif (deemr (ips i_sizeQ&0377 » 
ueuioffsetCOdsy useu_offset£C1d> 


else 
if ((u.eu_offsetl17%0777)==0) 


else 


Lerei_sizels 
= O 3& 


CLe-si_mode&(IFRBLK&IFCHR)) == 0) ¢€ 


ler? i_sized 
Ifp-ti_sizel 
} 


ie-si_flese =! TUFTS 


~ 


Wot 


us,uoffsetloOls 
ureu_offsetCils 


+ while(u-e-u_error==0 && weu_coumt! =0) 


- 


/* Return the lodical maximum 
xX of the 2 arguments. 
x / 

maxCasy bh) 

char Kay kbs 


€ 
iffa > b) | 
returm(a)s 
returm Ci) § 
+ 
“xX ‘iiss Sse ss \cnis Sse GAb Sue) eats ‘Coes eabss loins Gomes ciew! Seas, su: ido Gawd esa) ueae onus bias wuss eats 


/* Return the logical minimum 
KX of the 2 arsuments, 
x/ 
mintas b) 
char Kay Xb; 


£ 
if¢sa = oO? 
return( 3a) 3 
return(O) ¢ 
> 
ER ola a ee ee tee ees Sr eeeegt 
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K/ 
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6363 X/ 
6364 iom 
6365 str 
5366 <£ 
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Move ‘an’ bytes at byte location 

Sbe-sb_addrClol] to/from (fleas) the 

user/kernel (u.sesfla@) ares starting at u.-base. 
Urdate all the arguments by the number 

of butes moved. 


There are 2 alsorithmsy 

if source address» dest address and count 
are all even in 3 user cory 

then the machine landuase coryvin/coryout 
is called, 

If mots its done byte-hy-byte with 

crass and rPassc, 


ovelbry, o»y any fled) 
uct buf Kbrs 


register cher Xcrs 
register int ris te 


rmo= any 

Cre = br->Pbladdr + o# 

ifCus,u_sesflsa==0 28% Cm | cr i 
if (flag==B_WRITE) 


Ue tit-hease) %201)==0) 


Ce = corpyin(u-eu_basey cry m3 
else 

cr = coryoutlcrs usu_basesy mds 
if (cr) 

ueterror = EFAULT» 

return 
+ 


Welibase =+t my 
deadd(u.eu_offsetey m3 
Welicount =- my 
returns 
+ 
if (flaed==-EB_WRITE) <« 
while (nm--) <¢ 
if (¢t = crass()) < 0) 
return 
Xeret+ = ty 
} ; 
+ else 
while (m--) 
if(rasse(kKcrtt) = 0) 
returns 


we ee et a a ec et ot ec | x / 
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5400 # 

S401 #include "../raramen" 
6402 #include "../conf.hn" 

6403 #include "../inode.h" 
46404 #include ",./user.h" 
4405 #tinclude "../buf.h" 


4406 #include “../systm-n® 


4408 /X Emar defines the structure of file system storaede 


4409 * bu returning the rhysical block mumber on @ device Siven 
5410 * the inode and the logical block number ina file. 

S411 %* When conmvenients it also leaves the rhysicai 

4412 %* block number of the next block of the file in rablock. 
5413 % for use in read-ahead. 

S414 */ 

S415 bmas diss fr) 


5416 struct imode Kirs 
S417 int one 


S418 £ 
5419 resister Xbrs Kbary mbps 
S420 imt Xnbey gd» is 
S421 
S422 ag = ip-si_devs 
5423 ifforn & %077777) < 
5424 Weuierror = EFBRIG: 
4425 return(0)§ 
5426 } 
§427 Lf (Cire->i_modegILARG) == 0) ¢ 
5428 . 
5429 /* small file algorithm x/ 
5430 
S431 if(¢om & ~7) I= 0) 
4432 . 
5433 : /*® convert small to large x/ 
5434 
5435 if (Chr = glloece(d)) == NULL) 
5436 return (NULL) $ 
5437 bar = br->h_addrs 
45438 forcdi=Os i<8s it¢) £ 
5439 *bartt = ip-Si_addrlils 
5440 ip-Sincaddr[Cid = oO; 
5441 } 
5442 ip-si_laddr[CO] = bre-sp_blknos 
5443 nowrite (hr) s | 
5444 ip-si_mode =; ILARG? 
6445 goto large; 
5446 } 
5447 mo = dp-sicaddrCbnds 
5448 if(nb == 0 &8& (br = alloc(d)) != NULL) ¢ 
5449 Dbdwrite (br) 


oe 
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6450 nb = be-shoblknos 
6451 ie-SiladdrfCbnd = mbs 
64352 ie-Si_flas =i IUPI; 
6453 } 3 . 
5454 rablock = Q3 
6455 if (Cbn<7) 
5456 | reblock = ip-si_laddrLantiids 
6457 . return (nb) 
6458 + : 
— 6459 | 
564460 /* large file algorithm x/ 
46461 
5462 » large? | . 
6463 1 = bnes8s ? 
56464 ifCdon & 0174000) 
6465 i= 73 
6466 if((nb=ip-ti_laddr[fid) == 0) < 
6467 de-si_flag =i ITUFD? 
6468 if (Che = alloc(d)) == NULL) 
6449 return (NULL ) s 
6470 ie-sicaddr[lid = bre-Sb_blknas 
6471 + else | 
6472 br = bread (ds mb)ds 
6473 bar = bre-Sblsddrs 
6474 _ | : 
64735 /X “huge" fetch of double indirect block X/ 
5476 | 
6477 if(i == 7) ¢< | | 
56478 i = (¢bne>8) & 0377) - 73 
5479 if€(nb=baerCild) == 0) ¢ 
6480 if((mbe = alloc(d)) == NULL) <¢ 
6481 | : brelse(br); 
56482 return (NULL ) 
6483 + 
6484 barlCid = nbr-sb_blknos 
6485 bdwrite (Chr) ¢ 
6486 + else {€ | 
5487 brelse (hr) s 
6488 — nbe = bread(dy mb)? 
56489 + | 
6490 De = mbes - 
6491 bar = bre-tbladdry » 
6492 e 
6493 
6494 7k mormal indirect fetch xk/ , 
5495 | » 
5496 1 = pr & 03773 
5497 if ((nb=ba-elid) == 0 && (mbre = alloctd)) != NULL? ¢ 
5498 no = mbp-bb_blknos 
5499 harClid = nbs 
Rerroduced under licence from the “lestern Elootris Corranur NY 
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6500 
S501 
A502 
53503 
5504 
S205 
S206 
6507 
508 
H509 
HA1L0 
S511 
S512 
a13 
5514 
6315 
S316 
S317 
5318 
S319 
HA20 
A521 
S522 
S523 
&a24 
S25 
S325 
{527 
46528 
6529 
H530 
6331 
“is 


S32. 


5333 
5554 
HI55 
356 
b537 
4438 
S539 
540 
4541 
4542 
543 
S544 
545 
S546 
h547 
6548 
S549 
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bdgwrite (npr) 
bdwrite (br) s 
+ else 
brelse (pr); 
rablock =. Oy» 
if di «= 255) 
radlock = barlCaitids 
return(nb) » 


[Ko macnn nnn nnn K/ 


/X Pass back c to the user at his location u_hbase, 

K update wihase,s woicounty, and u_offset. Return -1 

xX om the last character of the user’s read, 

K uibese is in the user address space unless u_sesfl¢e 
KX 15 set, 


xK/ 
rFassc tc?) 
char cy 
£ 


if@u.u_sesfle) 
Ku,-u_base = cy else 
if(subyte(u.-u_base, c) «=< 0) £ 
WUeuierror = EFAULTs 
return(-1)35 
+ 
iUeliwcount—— $3 
if(t+tu.,u_offsetCild == 0) 
usu_offsetlOl+t+s 
Wethbasetts 
return(us,u_count == OP -13 


/® sabe sid ono ‘esa mae 'ckasscnts Gams siti cee ‘cos ‘mms Saih ‘Sven “ena, dog Goon, Soa Sacs onal snbd wie com tae x / 


Fick ur and return the next character from the user’s 


* 
x 
K write call at location u_hasey, 

Kk update wihase, u_counts and u_offset. Return -1 

*X when u_count is exhausted. uihase is in the user’s 
xX address srace unless u_sesfls is set. 

X 


register cy 


LfCu.eu_count == QO) 
returnm¢(-1)¥ 
ifcu.,u_sesftle) 


c = Kuetubasey else 


Rerraduced under licence from the Western Electric Comranyy 


Corgrishty Je 


Lions: 1976 


Sneet 65 


Mey 


6550 
651 
6552 
65353 
6554 
63555 
6556 
6557 
6358 
6559 
6560 
6561 
6562 
6363 
5564 
6565 
6566 
6567 
6568 
6556? 
6570 
6371 
6572 
6573 
63574 
63575 
6376 
6377 
63578 
6579 
63580 
6581 


6582 | 


6583 
6584 
6585 


6586 


6587 
6588 
6589 
65970 
65971 
6592 
5593 
6594 
6095 
6596 
6597 
6598 
E599 
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if¢(c=fubste(u.,u_base)) = 0) <€ 
Uselilerror = EFAULTSs 
returm(-1)¥s 
} 
Uelicoumt—-— 3s 
if(t+ttu.u_offsetLij == 0) 
ueu_offsetlOl+t3 
Weubasetts 
return(c&0377) +s 


[Xo monn nnn nnn K/ 


/* 

KX Routine which sets 2 user errors relaced in 
KX illegal entries in the bdevsw and cdevsw tables. 
K/ 

nodev() 

{ 


Ustu_error = ENOMEVs 
PR mr me ee te ee rr ee er ee ee eo K/ 


“XxX : | 
X Nill routines rlaced in insignificant entries 
X in the bdevsw and cdevsw tahles- 

x / 
rulidevd) 


[Kove K/ 


/* . . 
X¥ cory count words from from to to. 
x/ 


heors(fromsy tory count) 


imt Xfromy Xto# 
£ 
register Kay Khy cs 
a = froms 
b = tos 
c = counts 
do 
Ko+t+ = Katty 
whilet--c ds 
} 
“& ssa as cosed suns wads: case Wne secu “ambs “Gane vb ewes’ bese lesen SENG: 4668 lube Gat ‘cake tub. Sead. cunt yas0e? eobe| base x / 
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5400 # 

5501 /X 

5602 X/ 
5403 

5404 #include "../rarameh® 
5605 #inmelude °../user.h" 
5606 £€include °../fTilsys.in" 
4407 #tinclude "../file.h" 
54608 tinclude ".-+/conf.h" 
5609 #£include "../inode.h’ 
5510 #include °../reg.h*® 


S611 

5512 /* 

S613 %® Convert a user surrlied 

S614 %* file descriretor into 8s rointer 
5615 6’ to a file structure, 

4616 * Only task 16s to check range 
64517 '* of tne descrirtor. 

6618 */ - 

519 getfrit) 

S620 LO. 

HS2]) redister xXfrs, rts 

bh22 | 

8h2ed rf = f3 

HAL24 if(rf<0 it rPe=NOFILE> 

S625 soto pad; 

5626 fre = ueucwofilel rfid; 

5627 if(fr != NULL) 

5428 return(frdy 

6429 bad? 

56350 Useuerror = ERADFs 

46351 return CNULL > § 

4632 } © 

5655. 7K. SSeS SSS Se See x / 
45534 

5635 /X 

46536 k Internal form of close. 

54637 k Tlecrement reference count on 
44638 %* file structure and call closei 
5539 é€h om last closef. 

5440 kK Also make sure the rire Protocol 
5641 *® does not constirate. 

5642 ¥/ 


455643 closef (fpr) 
64644 int Kfres 


S645 £ 

5546 register Xrfry Kiry 
5547 

5648 rie = Try 

5649 if(rfe-sf_flesaFRPIPeE> <¢ 
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S650 ir = rfresfolinodes 
6651 ip-Si_mode =& “(CIREAD; TIWRITE) $ 


66352 wakeur (iets 
6653 wakeur Cipte > 3 
6454 + 

66535 if(rfe-sfocount <= 1) 


665 Closei(rfe-rfiinode, rfe-sf_flaafFPuRITE) ¢ 


6697 rfe-sf count-- 3 

6658 } 

CGP LK rrr rr ec cre er rere coe nt cen ne cee a a a K/ 
66460 

6661 /x- 

6562 X Decrement reference count on an 
6663 Kk inode due to the removal of @2 

6664 * referencing file structure, 

6665 * On the last closely switchout 

56666 * to the close entry Froint of srecial 
6667 kK device handler. 

6668 Xk Note that the handler gets called 
6669 kK on every oren and only on the last 
66790 k close. . 

6671 */ 


6672 closei€irpr rw) 
6673 int Xires 


6674 ¢ 

6675 — resister xKrir?; 

5576 resister devey maids 

6677 

6678 Tir = LP? 

5679 dev = pip-sicaddrCOds; 

5680 maj = pip siwaddrlOd.dumaJvors 

6681 if(rie-Siticount <= 1) 

5682 switch(rire-simode&IFMT>) <¢ 

6683 : | 

5684 case IFCHR? 

6685 (xcdevswlmadl].diclose)(devy rw); 
6686 bresks | 

5687 

6688 case IFRLK:; 

E689 (Khbdevsulmadl.diclose) (devs rw); 
6690 >} 

6691 drputCrird s 

4692 } 

GO Bs 7 ARR eo ie eS ns on ee x/ 
54694 

6695 /* 

6696 €* oreni called to allow handler 

56697 * of srecial files to initialize and 
6698 €k* validste before actual I0,. 

56699 %* Called on all sorts of orens 
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6700 * and also on mount. . 67350 . 

S701 KS 6751 ie = B1Fy¥ 

5702 oreni(irpy rw 6752 m= modes 

5703 int Kips 67353 if(m == IWRITE) <€ 

5704 5754 if(setfs(ir-Si_devi-ss_roniy != 0) <¢ 
5705 register €Krirs 6795 ielerror = EROFSs 
5706 register devs mais 6756 returnm(1)¢ 

5707 67357 } 

5708 rif = iP? 6738 Lf(ip-Si_flagq & ITEXT) ¢ 
5709 dev = pirp-si_vladdrLlOls 67359 Ueu error = ETXTERSY» 
5710 mad = Pfire-SsiladdrloOd.demavors 6740 se returnm¢1) y 

S711 switch(rip-si_mode&sIFMT) < 6761 + 

4712 6762 + 

S713 case IFCHR? 6763 iffueuluid == 9) <¢ 

5714 if(mad == mehrdev) 6764 if(m == TEXEC && (iFr->iumode & 
S715 soto bad: 6763 (ITEXEC |: (CITEXEC!23) ¢ CTEXECS*6))) == 
4716 (xcdevswimaJl.d_oren) (devs rw); 5766 gota beady 
5717 oresk. 5767 returnm(O) 5 

5718 6768 : an 

S719 case IFRBLK? 5769 ifCuseuluid §= ip--iluid) <€ 

{729 Lif(mas >= mblkdev) 4770 Mm so Oy 

S721 Soto had? 6771 ifCusulsgid != ip-Si_vsid) 
&722 — (Xbdevewlmail.d_oren) (devs rw) 6772 mo =r OF 

4723 } 6773 + . 

S724 returns 6774 if((ir-Si_mode&m) != GO) 

{725 6773 return (0) ¢ 

5726 bad} 6776 

S727 ielierror = ENXIO+s . 6777 bad? 

4728 } 6778 teu error = EACCES3 

SS Cd A A Sil las laetoel oeheelenteatetantententaatenheeiatenteateieatenaaenten */ 6779 returm(lds 

4730 6780 } 

S731 /*® : S781 /K mr ew cree ec ee ee x/ 
S732 %* Check mode rFermission on inode rointer. 6782 © 

45733 % Mode is REALIs WRITE or EXEC. 6783 /* 

5734 * In the case of WRITE: the 5784 *%* Look ur &@ Fathname and test if 

45735 * read-only status of the file 6785 '*’* the resultant imode is owned by the 
5736 * sustem is checked. 6784 kk current user. 

5737 * Also im WRITEs Frototyre text 6787 *’ If mote try for surer-user, 

4738 % sedments cannot be written. 56788 xk If rermission is srantedy 

573? * The mode is shifted to select 6789 xk return inode rointer. 

6740 © the owner/srour/other fields. | 6790 X/ 

5741 * The surer user is sgranted all 6791 owner) 

5742 K rermissions excert for EXEC where E792 £ 

5743 *K st least one of the EXEC bits must 6793 register struct inode *ir; 

5744 % he ore 5774 extern uchard) 9 

5745 Ks 6793 ; 

5/744 sccesslairs mode) 4796 if (Cir = nmnameiCuchary QO)) == NULL? 
S747 int Kairs 5797 returnCNULLl dy 

4748 € 6798 LfCueuwiuid == tp-siluid) 

HAD resister Kirs mi 4799 returnm(LP)¢ 
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6800 
5801 
ABO? 
~~ §803 
46804 
4805 
45306 
45807 
5808 
5309 
4810 
5311 
4312 
S313 
5814 
S815 
4816 
46317 
4918 
4B19 
48320 
482 1. 
{822 
ASL S 
4824 
S825 
5826 
SB27 
4828 
5829 
S530 
$831 
ABZ2 
5833 
4334 
4835 
5836 
$337 
5838 
5839 
45840 
5341 
45842 
45843 
45844 
4843 
4846 
4847 
4848 
5349 
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if (suser()) 
returmCir) 3 

LPeutCir) § 

return (NULL ) s 


> : 
/* ‘cs ees lanon {bai abs ‘Ga “oetan ‘Sean Jgoce: Sons sks: edee! Gos! $50 ead wise Sikes: ease abe “Gute: bute ce sue jones ese xK/ 
/*® 
KX Test if the curremt user is the 
KX SUPer user, : 
x / 
susert) 
¢ 
if(useucuid == Q) 
returm¢€t)s 
Usiierror = EPERMS$ 
returm(O) 3s 
+ . 
Tk PSS Se eee sh a a a aa x/ 
“xk 
* Allocate e user file descrirtor. 
x/ 7 
ufelloc() 
{ 
resister is 
for (i=O3 i<NOFILEs it+) 
if Cue-u_-ofilefLid == NULL) ¢ 
teu agrOCRO] = 13 
return(i) 3 
>} 
Uselilerror = EMFILEs 
return¢-1)§ 
} 
Tk. POSES ae eS Se Sea ae K/ 


/*® 

KX Allocate a user file descrirtor 
K and a file structure. 

K Initialize the descrirtor 

xX to roint set the file structure. 
*K 
x 
* 


no file -- if there sre no available 
file structures, 
*/ 
falloc() 
£ 
resister struct file xfry3 


i 
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6850 
6851 
6852 
6853 
6854 
6855 
6856 
6857 
6858 
6859 
6860 
686i + 

6862 Printf "no fileN\n") » 
6863 ueuerror = ENFILEs 

6864 return CNULL > ¥ 

6865 } 

6866 
6867 
6868 
6869 
6870 
6871 
6872 


resister iF 
if (421 = ufalloc(d)) =< 9) 
return (NULL > 5 
for (fr = &filelOds fr <= &faleEINFILE Ts frets) 
if (frP->fucounmte=0) ¢ 
Weliofirieiad = firs 
free focanirmt + 
freeofoloffsetCod = OF 
fe-ofooffisetCid = O¢ 
return Of) ¢ 


A Gane teow ae was einen aes KY 


— 6873 


6874 
6875 
6876 
4877 
6878 
6879 


6880 


6881 
6882 
6883 
6884 
6885 
6886 
6887 
6888 
5889 
6890 
6891 
6892 
6893 


— 6894 


6895 
6896 
6897 
68°98 
6899 
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5900 # 

S701 /*X 

6702 xX/ 

5703 

6904 #tinclude "../raram-eh*" 
6905 #inmclude “../systm.h" 
5904 #include “*../filsys.h’ 
459707 #include ",./conf+h* 
59708 €include "../huf.h" 
5909 #imclude °,./inode.h" 
6910 t#tinclude "../user.h’ 


5911 

S912 /* 

6713 Kk iinit is called omce (from main) 

4914 6’ very early im initialization. 

4915 * It reeds the root’s surer block 

4916 k and initializes the current date 

6917 * from the last modified date. 

5918 

SF1IP MWK Panic: ~tinmit -- cannot read the surer 
65720 €k block. Usually because of an IO error, 
S921 K/ 

4922 1imitd) 

923 < 

S924 resister Kery Kbrs 

69235 | 
5IP26 (xXihdevswl rootdev.dumaJor].d_oren) (rootdevs 193 
S727 be = breadt(reotdevy dys 

5928 cr = getblk (NODTEY) 3 

5929 iffueuwerror) . 

5930 ranie C*Limit'™)s 

S731 becom be shladdrs:s crp-bbladdrs 256)3 
S932 brelse Chr) $ 

5933 mountCOd.mupufe = crs | 

5934 mountCOd.midev = rootdevs 

P35 Cr = cre ibladdrs 

5936 cressiuflock = O¢ 

5237 Cress utilock = Os 

5938 Cress uromiy = OF 

S939 timeCOd = cr- rs wtimelOds 

5740 timelild = cr->s_itimel1ld3 

5941 } 

SPQ LM me ee rr rr cre cr sre en ee cee ce ee ce sa a er ety oa K/ 
EPS LR merrier ce ce re re ee sen st ene ee so ae ene */ 
5744 


SP4aS 7K 

5746 €K alloc will obtain the next available 
45747 * free disk block from the free list of 
S749 * the srecified device. 

S34? KK The surer block has up to 100 remembered 
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69SO0 *k free blocks: the last of these is read to 
6951 *%* obtain 100 more +. .s » 

6952 XX | 

6953 '%’ no srace on dev x/¥ -- wher 

6954 kk the free list is exhausted. 

69355 */ 

69356 alloc(dev) 

6957 

6938 int hnoy 

69359? register k*bry,y Kips Xfrs 

56960 

6961 fer = detfst(dev)»s 

6962 while (fr-ssuflock) 

6963 Sleer(&fr-ss_flocks FPINOD) 3 
6964 do ¢ 

6963S if(fe-ssinfree “= 0) 

59656 soto mosracer 

5967 bno = fr-ss_freel[--fr-ss_unfreels 
6968 if(bno == Q) 

5959 soto nosraces 

5970 + while (badblock (fr: bnor dev)d)s 
6971 if(fe-ssuinfree «<= 0) < 

5972 fre-ssuflockt+tys 

6973 be = bread(devys brnods 

6974 | LP = be-tbladdrys 

6973 fe-Ssu unfree = Kipetts 

6976 becoryliry fr-ss frees 100)3 
8977 brelse (hr); 

5978 fe-ss flock = OF 

E5979 Wakeur(&fre-ss_ flock) 3 

6980 + 

698i be = gethlk(devs bnods 

6982 Clrbuf Che > 

56983 fe->s_fmod = 13 

5984 return Chr) ¢ 

6985 

69°86 mosrace’ 

5987 fre-ss infree = OF 

5°88 erdev( "no srace"s devs 

5989 Useuierror = ENOSFC? 

6990 return (NULL ) ¢ 

S991 } 

SSS 2 ee rere ie ie ee ees x / 
5993 /X isis guse: Sous: Sebi oben’ eee cewte (nbes! Gabe) eineicebe oss. bias: cows tube late. boa ssen’ eued’ bord /ente ‘Swwn\twmsn. pens ars *x/ 
E994 

5995 /X 

6996 k felace the srecified disk block. 
46997 Xk back on the free list of the 

6998 xk srecified device. 

EP9PP = K/ 
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7000 free(devsy bno) 


Sneet 7C 


—7O0L L 
7002 resister Xfry Khrpy Kir; 
7003 
7O04 fre = setfis(dev)s 
7O03 fr-=s_fmod = 13 
79006 while (fr-ss_ flock > 
7OO0?7 sleer(&fr-ss flock» FINOD)» 
7908 if (hadblock (fry bnos dev)) 
7009 return? 
7O1LO lf(fe-ssinfree <= 0) < 
7O11 Tfe-ssinfree = 13 
7OL2 fre-ssufreelOJ = O3 
7013 + 
7O14 if(fr-ssuinfree == 100) < 
7O1S fe-sa flock+t+ys 
PFOLSG be = getblk (devs bno)$ 
7O1L7 ip = pr-shboaddr?: 
7O18 Kiett = fr-ssinfrees 
FOL beoruylfr-ss frees ips 100)35 
FO20 fre-ss_infree = OF 
7O21 Owrite (br) F 
POR? fre-os flock = O; 
7FORS wakeup (&fr-ss_flock) + 
POZ4 } 
7025 fe-cs_freelfr-csunfreettl] = onos 
7026 fe-ssifmod = 13 
FOR? } | 
PULG fe SSeS eee ee ee eee K/ 
a A a a al x/ 
79030 
POSSI /x 
7O32 * Check tnat 3 block mumber is in the 
7933 * ranste between the I list and the size 
79034 * of the device, 
79035 %'%’ This is used mainly to check that o 
7036 * sgarbase file system has not been mounted, 
7037 X 
7938 *% osd alocw on dev «w/v -- not in range 
7039 X/ 
7040 badblock(sfr, abms dev) 
7041 < 
7042 resister struct filsys kfroy 
7043 resister char xXbny 
7O44 
7O4MS fre = afr; 
7O4S dn = abms 
7047 if (fn <= fe-sslisizet2 i: bm = fe-ss_fsize) 
79048 rerdev( "bad block’, aevd 3 
79049 return(1l)y 
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7050 + 

7031 return(O) $ 

70352 } 

FOSS [Km mm mm er er ne x/ 

LOOK (fF KS StS See See eee x/ 

7035 

7O36 7 

7OS7 * Allocate en unused I mode 

7058 * om the srecified device. 

70S9 xk Used with file creation. 

7060 Xk The algorithm keers ure to 

7O6i1 * 100 srare I nodes in the 

7062 * surer block. When this runs onuty 

7065 *%* @ linear search throush the 

7064 X* I list is instituted to Fick. 

7065 kK ur 100 more. 

7066 X/ 

7067 ialloc(dev?) 

7068 | 

7069 resister Xfry Khes Kir 

7070 imt is Js ky ino; 

7071 

7072 fe = sgetfs(devds 

7073 while(fr-ss_iilock) | 

7074 Sleep (&fr-sslilocks PINON); 
7075 loor? 

7076 if(frp->suninode »* 0) | 
7077 ino = fr->s_inodel--fe-ss ninodeds 
7978 if = iget(devy imads 
7079 if (ir==NULL) 

7080 | returm (NULL) $ 

7081 ifCie-si_mode == 0) ¢<¢ 

7082 for(br = &ifP-silmodes br << &ir- 
7083 Xbet+ = OF 

7084 fr-ss_fmod = 13 

7085 TetUPrMC LF) ¢ 

7086 } 

7087 /*% 
7688 * Inoge was allocated after ali. 
7089 * Look some more. 

70990 x/ . 

7O91 rut Cir), 

7092 Sato loor? 

7093 + 

7094 fr-ss_ilocktt+s 

7095 ino = Os 

7096 Porti=0;7 itfe-ss_isizey itt) < 

79097 | be = bread(devy ires3 

7098 iP = be-sbladdir} 

7099 Toru=O% GLS56s J=t16) 
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7100 inotts 7150 xk getfs mars 2a device mumber into 

7101 ifCareCud != 0) 7151 * 3&8 Fointer to the incore surer 

7162 continues 71S2 * block. 

7103 for(k=O0%8 KZNINODEs ktt) 7153 %* The alsorithm is a linear 

7104 if(dev == inodeCkJ.i_dev &2 7154 * search through the mount table. 

71035 imo == inodelkJ.i_number) 7155 * A consistency check of the 

7106 dota corts 7156 '’* in core free-block and i-node 

7107 fre->s_ inodelfr-ss_ninodettid = inoys -71S7 xk counts. 

7108 if(fre-ss_ninode == 100) 7iS5S8 x 

71.09 break» 7159 * bad count on dev x/y -- the court 
7110 comnts ¢ 7160 * check failed. At this rointy all 
Pill } 7161 * the coumts are zeroed which will 
7112 brelse Chr) y 7162 * almost certainly lead to "no sraece" 
7113 Lfit(fe-sesuninode == 100) 7163 * diaesnostic 

7114 break 7164 kK ranict! mo fs -- the device is mot mounted. 
7115 + 7165 *k this ‘cannot harren" 

7116 freosuilock = QO; . 7166 = */ 

7117 Wekeur(&fre-ses_ilock)s 7167 setfs(dev?) 

7118 if (fre-ss_ninode = 0) 7168 

7119 soto lLoors 7169 redister struct mount Xrs 

7120 erdev( "Out of inodes":s dev)s 7170 resister char Xnlvs Kn2y 

7121 Wueuierror = ENOSFC? 7171 

7122 returm (NULL ) s 7172 for¢e = &mountCOTs fF <= &mountOCNMOUNTI# ett) 
7123 + 7173 if(e-smbufe != NULL && f->muidev == dev) { 
PLL LR mer rn en ee te ne eo er om x / ALPS Po= pe bmibufe-sbladdry 

PLZ: LM. Seer eee eS SSS eS */ FASS ni = p-ss_nfrees 

F1L26 7176 m2 = Fes nmninodes 

7127 7X | | 7177 if(ml = 100 ii m2 > 100) ¢€ 
7128 * Free the srecified I node . . 7178 prdev("bhad count’, dev)» 
7129? kK on the srecified device. 7179 rP- so unfree = OF 

7130 * The alsorithm stores uF | 7180 r-'Ss minode = OF 
7i3l = *& to 100 I modes in the surer 7181 } . 

7132 kK block and throws away any more, 7182 | return r) ¥ 

7133 = X/ 7183 + 

7134 ifree(devy ino) . 7184 Fanic¢ "no fs")s 

7135 ¢ 7185 >} : 

7136 resister xkfr3s TLOO: J Sere eee Sea eee . */ 
7137 VLE? ff XK Se See SSeS Se Se eee K/ 
7138 fr = getfs(dev) » 7188 

7139 if(fe-ssvlilock) 7189 /xX | 

7140 returns | 7190 kK urdste is the internal name of 

74 if(frp-ssuninode *= 100) 7191 & ‘sume’. It goes through the disk 
7142 returns 7i92 xk auewues to initiste sandbassed IQs 
7143 fe->slinodelfe-ss_ninodett] = inoys 7193 * does through the I modes to write 
7144 fre-ss lfmod = 1s 7194 * modified modes; and it goes throush 
71435 + 7195 * the mount table to initiate modified 
FLAG SR mem rr er re eee x/ 7196 kK surer blocks. 

PLR PR mmm rm me me */ 7197 xs 

7148 7198 

7149 /* 7199 

Rerroduced umder licence from the Western Electric Companys NY Rerroduced under licence from the Western Electric Company, 
Corygrishts, J. Lionssy 1976 Coryrishts J. Lionsr 1976 


Sneet 71 Sheet 71 


May 24 12355 1976 wunix/alloc.c Fase 7 


7200 

7201 updated) 

7202 ¢ 

72903 resister struct inode Xir; 

7204 resister struct mount Xmr3s 

7205 resister xkhry 

7206 | 

7207 if (urdlock) 

7208 return? 

7209 uredlock++s 

7e2ld for¢me = SmoumtCOTs me = SmountCNMOUNTI? met+) 
7211 if(me-smubufe i= NULL) 

7e12 ip = mpe->mubufe-sbladdr ys 
7213 if(ip-Ss_fmod==0 {1 ir-v->suwilock!=0 [3 
7214 lp-ss_flock!=0 (ti ip-ss cromiyg!=0) 
¢alo continues 

7216 | be = detblk(mr-smidevy 1335 
7217 ip--sufmod = Oy 

7218 le-ss_timelO] = timeLlOd3 

Fal? | ir-ss_timelid = timellds 

7FRLQO becorylirs be-Ssbladdry 256) 3 
7221 bwrite (br) ¥ 

Fane + : 

Pao? for(ir = SinodelOJs ip < &inodeCNINODET$ itt) 
Pens if(Cip-Si_lflassgILOCK) == 0) ¢€ 

Pele | | ip-si_flad =i ILOCKs 

Ped lurpdat(Cirys time) > 

Pee? | ereledip)§ 

7228 + . 

PARP urdlock = O¢ 

7230 bf lush (NODE > 

P2sl } | 

Pade KR mer srr rr rm mmr nee x/ 

PASS LR rrr mr ecm ee ee en er cm ee oe a oe = x/ 

P2LS4 

7233 

7236 

7237 

7238 

7239 

7240 

724i 

7242 

7243 

7244 

7249 

7244 

7247 

7248 

7249 


a 
“€ 


Rerroduced under iicence from the Western Electric Comrerigs 
Coryrisghts J. Lionsy 1976 


Sheet 72 


May 


7290 
7251 
7252 


7253 


7254 


72955 
7206 
7257 
7258 
7259 
7260 
7261 
7262 
7263 
7264 
7263 
7266 
7267 
7268 
7259 
7270 
7271 
7272 
7273 
7274 
7275 
7276 
7277 
7278 
7279 
7280 
7281 
7282 
7283 
7284 
72835 
7286 
7287 
7288 
7289 
7290 
7291 
7292 
7293 
7294 
7295 
7296 
7297 
7298 
7299 
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12256 1976 wunix/iget.c Fase 1 
¥ 
#include "../raram.hn" 
#include °"../systm.n" 
include "../user.h" 
#include ".-+/inode.n" 
#incelude °*../filsys.h" 
finclude ".-./conf.h" 
#include “../buf.h" 
/*% 
* Look ur gem inode by deviceryinumber, 
* If it is in core (in the inode structure)» 
*X honor the locking Frotocol. 
Xx If it is mot in corer read it in from the 
X srecified device, 
xX If the inode is mounted ons rerform 
*X the indicseted indirection. 
KX Im all casesy &@ Pointer to a locked 
K inode structure is returned. 
* 
K Printf warnings? no imodes -- if the inode 
* structure is full 
K Fanics no imt -- if the mounted file 
KX system is not im the mount table, 
XxX "cannot harren" 
x/ 
idet(devy ino? 
{ 
resister struct inode xr; 
resister XKir2; 
int Kiel; 
register struct mount Xirs 
loor?: 
ir = NULLS 
for(r = SinodelCOd?: - = &inmodeLNINODEIJ: ftt+) € 
if(dev==rp-li_deyv && ino==rF-si_number) € 
if((rp-Sai_flasg&sILOCK) !'= 0) ¢€ 
r-Si_flad =i IWANTs 
Ssleer(rps, FINOD) § 
soto loors 
+ 
if((r->i_flas&IMOUNT) != 0) ¢£ 
for (ir = &mountlods 
ie < &mountCNMOQUNT Is 
if Cir->m_inodr 
dev = ip->mudevs 
ino = ROOTINOs; 
goto loorys 
+ 
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Fanic( "mo imt")s 


+ 
Poe i_counmtttys 
P->i_flagq =: ILOCKs 
returrn(r) ¥ 
es 
Llf€irP==NULL && fF-si_count==0) 
lp = Fy 
+ 
Lf((r=ip) == NULL) € 
Frintf("*"Inode table overflowN\mn")s 
usuerror = ENFILE»s 
return (NULL) ¢ 
+ 
Posi _idev = devs 
P-SLunumber = imnog 


P-Si_flag = ILOCKs 

Pos Lucounttts 

PosLtoilsastr = ~-l3 

ir = bread(devy Idivdinot3l:s16))3 


* Check I/0 errors 


if (ir-sb_flass&B_ERROR) << 
brelselip) +s 
Leute) § 
return (NULL) s 

} 

ipl = ip-sbwaddr + 32kKlrem(Cinmot3ly 16)3 

Leo = &P->i_modes 

While(ip2 <= &e->i_addr[8]) 
Kirp2ltt = KiPel+t+; 

nrelsetirpds 

returnmde)¢ 


coon one ee seasons soe soe soe ain at te oe ese Ste Sn nen outset howe coe sin av eo eam sve K/ 


llecrement reference count of 

an imode structure. 

On the last reference, 

write the inode out and if necessary, 
truncate and deallocate the file. 


tr) 
wet imode Krys 


resister xXrr3 


tr = py 
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7350 if(rre-si_coumt == 1) £€ 

7351 re-si_flag =i ILOQCK; 

7352 if(re-si_cnlink <= 0) < 
73a3 Ltrunme (rr) s 

73354 Pe-si_mode = OF 
7355 ifree(rr-si_devy rre->Si_number) s 
73356 } 

73a7 lurdat(rre, time)ys 

7338 rrele (rr) ys 

73359 re-si_flag = O; 

7360 Peo-Si_mumber = Os 

7361 > 

7362 Pe-sLicount—-—¥ 

7363 rPrele(rr) s 

7364 } 

LSOS Sh SASS SSeS ee ee Sa SSeS eee x / 
7366 

7367 /*® 


7368 * Check accessed and urdate flads on 
736? * an inode structure. 

7370 * If either is ons urdate the inode 
7371 kk with the corresronding dates 

7372 * set to the ardument tm. 

73735 */ 

73574 updates, tm) 

73735 int Xp3 

7376 int Xtms 


7377 £ | : 

7378 register Kirls: Kir2s kre; 

7379 int Kbes if . 

7380 

7381 Tre = Fy 

7382 if((re-sivflassCIUPOLTIACC)) t= 90) ¢ 
7383 if setts (rre-si_dev)->s_uronly) 
7384 return 

7385 1 = re-Sicmumbert3ls 

7386 be = bread(re-si_devy Adivdis1dé))s 
7387 ipl = be-Sbladdr + S2klrem(iy 16)3 
7388 dpe2 = &re->i_mode3 

7389 while(Cir2 <= re-si_addr[8 I) 
7390 Kirlt¢+ = Kirotty 

7391 if(re-sricflasg&aIAcc) <{« | 

7392 Kirdit+t = timelOlds 
7393 Kirit¢+ = timellids 
7394 } else 

7393 if-l =+ 23 

7396 if(rre-Si_fles&IUPD <¢ 

7397 Kirelt¢+ = xktmt+3 

7398 Kirl++ = ktm} 

F3PP + 
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7400 
7AOL 
7402 
7403 
7404 
7405 
7406 
7407 
7408 
7409 
7410 
74ald 
7412 
F413 
7414 
PALS 
7416 
2417 
7418 
PALO 
7420 
7424 
7422 
7423 
7424 
7425 
F426 
7427 
7428 
7429 
7430 
7431 
7432 
7433 
7434 
7435 
F436 
7437 
7438 
7439 
7440 
P4Al 
7442 
7443 
7444 
7445 
FAL 
7447 
7448 
7449 


uminx/iget.c Fase 4 
Owrite Chr) 3 
dp Wiioatetenteatententntententententententetenentententamententemententeen x/ 


x . 
* Free 3211 the disk blocks associated 
K with the srecified inode structure. 
xX The blocks of the file gre removed 
xX im reverse order. This FILO 

xX algorithm will tend to maintain 

*X a contisguaus free list much longer 


xX than FIFO. 
x/ 
Ltrume Cir) 
int Xiry 
register Xrey Kbry Kers 
int XKdrey Xerys 
Te = ips 
if((re-si_mode&(IFCHR&IFBLK)) != 0) 
returns 
fordirp = &re-Sicaddrf(€7]5 ip 3= &re-biladdr[COJs irp--) 
if(xire) <€ | 
ifCCre-Si_mode&SILARG) != 0) ¢ 
be = bread(rp-siidevy Kir)s : | 
for(cr = bre-Sbladdr+Si23 cre = brp->bladdr3 
cr--) 
if(xcr) <¢ 
if€ir == &rpe-siladdr[7J) € 
de = bread(rre-si_devy Kcr)» 
for(er = dre-sbladdrt+Si23 
er = dr-sbhiaddrs er-~) 
if (xXer) ; 
free(rpe-Si_devy ker); 
brelse(dr)s 
+ 
free(rr-sicvdev: xKcer)? 
+ 
brelse (hr); 
- | 
free(rrp-si_ldav, Kipds 
KirF = Of 
} 
Te-si_mode =% *“ILARG: 
TP-S1_sizedO = OQ; 
Preo-ei_lsizel = OO; 
reeDSi_flesd =! IUPD? 
+ 
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FASO DK mn ee i oe tes eer cio x/ 
7451 

7452 /* 

7453 * Make a mew file, 

7454 x/ | . 

7455 maknode(mode) 

7456 £ 

7457  pesister Kir; 

7458 

7ASP ire = palloc(u.uLledir-sicdev) 3 
7460 if (ir==NULL) 

F4asi | return (NUL > 

7462 ip-si_flses =! IACCIiIUFDs 

7463 ip-si_mode = modeiIALLOCs 

7464 ip-?innlink = 15 

7465 lpr-sicuid = wusucuids 

7486 Pre iwsgid = wueusids 

7467 WOLrCLF) § 

7468 return(iF)s 

7469 } 

FADO LK mm nn eee ete ee oe ee mae ks 
7471 : 

7472 /%*% | 

7473 X& Write a directory entry with 
7474 X& rsrameters left as side effects 
7475 * to a call to mamei. 

74A7& X/ 

7477 weirtir? 

7478 int Kir? 

7479 £ 

7480 resister char Xcrls Xer2y 

7481 

7482 ueuident.eulimo = ire Sicnumbers 
7483 crl = gu,u-dent.u_mameloO ls 

7484 for(cr2 = &ur-ucdbufCOJds cee = Su-eu_dbufCOIRSIZI3 >) 
7485 Ker ltt = xXcr2tts 

7486 Usu_coumt = DIRSIZ+23 

7487 ueuisesfls = 1s 

7488 Ueu_base = &u,udents 

7AB9P writei(u.u_PGaiin) 5 

7490 LPUDLCUSULPOLT? » 

7491 } | 

F492 f= a db ge eee Mids a sag? estetetee Lends Gnd esee Suis alte cocnieebs'e dellets cara Gawious io & x/ 
FAIS 

7494 

F4APS 

74AIS 

7497 

7498 

7499 
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7500 
7501 
7502 
7503 
7504 
7505 
7506 
7507 
75308 
7509 
73510 
7511 
7512 
7513 
7514 
7515 
7516 
517 
7518 
7519 
7320 
7524 
7522 
7523 
7524 
7525 
7526 
7527 
7528 
7529 
7530 
PSL 
7532 
7533 
7534 
7535 
7536 
7537 
7538 
7539 
7540 
7541 
7542 
7543 
7544 
7545 
7546 
P47 
7548 
7549 
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$ 

#include "../rarameh’ 
#include °../inode.h" 
#include ‘*../user.h" 
#include "../systm-eh" 
#include ",./huf.h" 


/ 
Convert s rathname into 2@ rointer to 
an imode. Note that the inode is locked, 


fune = function called to get mext char of name 
gucnar if meme 165 in user space 

&schaer if name 16 in system srace 

flag = O if mame is sought 

1 if mame 1s to he crested 

2 if mame is to he deleted 


MH HH HM HM HM HM MH HM 


x / 
mameitfuncs flas) 
imt ¢(Kfure) ods 


£ 
resister struct inode Xdr; 
resister cy 
register char xXcry? 
imt eoy xXnhrys 
/* 
K If mame starts with ‘/’ start from 
K roots otherwise start from current dir. 
K / 
are = weu-edirs 
if(Cc=(kKfuned¢)) == 4/7) 
de = rootdirs 
iget(dr-siidevs dre-lri_nmumber) ¢ 
while(c == ’/7%) 
c = (xkfuncd()$ 
if¢e == ‘\O’ && flags != 0) ¢ 
Useu_error = ENOENTs 
soto outs 
+ 
cloor? 
ix 


K Here dre comtsains rointer 
* to last comronent matched. 
*/ 


if(ueucerror) 
goto outs 
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7550 if€c == ‘\0%) 

7Faodk return(dr)s 

Pea a 

75953 /* 

73534 K If there is another comronerity 
7d KX dre must be 3a directory and 
7556 KX must have «x Permission. 

Joa7 K/ 

7358 

730°? if((de-si_mode&sIFMT) != IFDIR) < 
7360 uUe,u_error = ENOTDIR: 

7361 goto outs 

7562 } | 

7563 ifCaccess(de,s IEXEC)) 

7364 soto outs 

7369 

7366 /*X Gather up mame into 

7367 K users’ dir buffer. 

73568 K/ 

73569 

7379 cr = gu.u_dbuflOds 

Fart while(c!l=’/’ &%& cl=’NO’ && useu_error==0) ¢ 
73/72 iffcr = &u,u-dbufCOIRSIZI) 
7373 Kert+ = cy 

7374 c = (kfunme) 0) ¥ 

79735 } 

7976 while(cr < &ueuidbufCOIRSIZ I) 

7377 Kertt = “NO%S 
7378 while(e == ‘/7) 

7379 c = (Kfuned od) 

7380 © if (u.u_error) 

7381 Hdoto outs 

73982 7 
7383 /* Set. ur to search a directory. x/ 
73584 

7383 ueuoffsetLid = O3 

7386 ueuioffsetLOd = O03 

7u87 ueuisedfla = 13 

7388 eo = OF 

7389 Ueucount = ldivéde-Si_sizels OIRSIZ+2) 5 
7390 bre = NULL? 

FaPi 

7392 elaor?’ 

SITO 

7IP4 1% 

FIPS xX If at the end of the directoryy 
7FIPSh X¥ the search failed. Rerort what 
7a9?7 XK is @FrFrorriate as rer fla. 
7998 x/ 

7aIPP 
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76006 
7601 
7602 
7403 
7604 
7605 


7 2 Me F 


7506 
7607 
7608 
7609 
7610 
7OLi 
7612 
7613 
7614 
FOILS 
7616 
7617 
7618 
7619 
7620 
7621 
7622 
7023 
7624 
7O235 
7628 
7627 
7628 
7629 
7630 
7631 
7632 
7633 
7634 
7635 
7636 
7437 
7638 
7639 
7646 
7641 
7642 
7643 
7644 
7645 
76046 
7647 
7648 
7649 
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ifCuseulcount == 0) 
if¢fpe '!= NULL? 
brelse(br)s 
if(flad==1 2% c==’\0’) 
ifCaccess(dpes IWRITE) > 
goto outs 


ureu_offset£Lid = eo-DIRSIZ—-23 
de-Si_fle TUF Its 
returm (NULL D 5 


“~~ 4 


> 
Ueliierror = 
soto outs 


ENOENT > 


If offset is om 2 block boundary, 
read the next directory block. 
Release rrevious if it exists. 


HH HM HM 


f 


if(Cueu_offsetCligz0777) == 
iftfe != NULL)? 
brelse(br)s 
bread (dr-siidevy 
Omer (dey Ildiveu,u_offset£1iids 


0) < 


bre = 
SL2)) 05 


Note first emrty directory slot 

im eo for rossible crest. 

String comprare the directory entry 

and the current comronent. 

If they do not match: go back to eloor. 
/ 


“~\ 
HMM HM HM HM MH 


bcory(bp-sbhladdrt+(u.u_offsetC1l]&0777)5 &u.u_dernty 
(QIRSIZ+2)/2)3 

usu_offsetCid =+ DIRSIZ+25 

Wel count-— 7 


ifGus,udent.u_ino == 0) ¢ 
iffeo == 0) 
eo = yu.u_offsetlids 
soto eloor? 
} 
forfece = 2ur,ucdbufCOJ? crm = a@usu_dbufCQGIRSIZ]? crt 
27 4Ker $= cplCu,u_dent.u_name - weu_dbufd) 
Soto eloors 
ed under licence from the Western Electric Comranys 
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7600 /* Here Ss comrFonent matched in 3 directors. 
7651 *X If there is more Frathnamery go back to 
7632 K cloor,s otherwise return. 
7693 *x/ , 
7654 
765o if¢pbe I= NULL? 
7636 hrelse(bp)s 
76357 if(flas==2 2% c==’\0"%) 
7608 ifteaccess(dr»y IWRITE)) 
7609 soto outs 
7660 return(de) s 
7661 + 
7662 be = dp-si_ldevy 
7663 Lrit (de) s | 
7664 de = igetCbrr ueuident.ulimo) § 
7669 if(de == NULL) 
7666 . returnCNULL >? ¢ 
7667 foto cloors 
7668 | 
7669 Out? 
7670 iput(de) 
7671 — return (NULL) » 
7672 } 
LOLS LM. OES ee A ee mica se eaiemnns */ 
7674 
7673 /*® 
7676 * Return the rieaxt chseracter from the 
7677 *& kernel string Pointed at by dirr. 
7678  X/ 
7679 schart) 
7680 £ 
7681 
7682 return(Xu.u_diret++ & O377)% 
7683 } 
7684 [KK mmm mr mr er rm rr re K/ 
7468S . | 
7686 /* Return the mext character from the 
7687 kK user string Pointed at by dirr. 
7688 X/ 
768? uuchart) 
7690 £ 3 
7691 resister c; 
7692 
7693 c = fubstefu,u_dirett) 3 
7694 iffc == -1) 
7073 WUeuerror = EFAULTs 
7696 recurnleds 
7697 + 
7698 RK mmm mm rt rte K/ 
7E&99 
Rerroducedc under licence from the Western Electric Comrarny, 
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7700 
7704 
7702 
7703 
7704 
7705 
7706 
7707 
7708 
7709 
7710 
7711 
7712 
7713 
7714 
7715 
7716 
7717 
7718 
7719 
7720 
7721 
7722 
7723 
7724 
7725 
7726 
7727 
7728 
7729 
7730 
7731 
7732 
7733 
7734 
7735 
7736 
7737 
7738 
7739 
7740 
7741 
7742 
7743 
7744 
7745 
7746 
7747 
7748 
7749 
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#include "../rarameh" 
#include "°../syustm.h" 
#include "../user.h* 
#include °../inode.n" 
#include "../file.h" 
#imclude "../res.n" 


/* Max allowable buffering rer rire, 

X This is also the max size of the 

xX file created to implement the rire, 
KX If this size is bisser than 4096s 

K Pires will be implemented im LARGe 
KX filess which is Frobably not sood. 
x/ 


#define FIFSIZ 4096 


/* The sys-rire entry. 

X Allacate an inode on the root device. 
X Allocate 2 file structures. | 

KX Fut it all together with flags. 

x/ 


rire) 

{ 
register XKirs Krfs Kwfs 
int rs 


ir = ialloc(rootdey) § 
if€ip == NULL) 
returns 
rf = falloc(); 
if(rf == NULL) ¢< 
lrutdirp); 
returns 
} 
r= wueu_srOCRoOds 
wf = falloc(); 
if(wf == NULL) <€ 
rf-sficount = O35 
yeu ofileCrd = NULLs 
LPuUtLCLE) § 
returns 
} 
WeUarOCRid = ueu_arOLRods 
WeliarOLCROJ = rs 
wi-sfeflasg = FWRITE:IFPIPE: 


wf-sfiinode = iPr; 
rf-=feflag = FREADIFPIFE: 
rf->f_uinode = ir; 
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7789 
77909 
77971 
7792 
7793 
77PA 
77POS 
7796 
7797 
7798 
7799 


TP-si_counmt = 23 
ir--2Si_flag = TACCiIUFD, 
ip-si_mode = JALLOC;s 


[0 wn nnn nnn -- = K/ 


/*& Read call directed to a Fire. 
X/ 
readme (fr) 
int Xfrs 
€ 
register XKrrey XKiry 


= fry 
ifr = pe-sf_inodes 


7*& Very conservative locking. 


Plock (iF) $s 
/* If the head (read) has caught ur with 
Kk the tall (write): reset both to 0. 
K/ 
if(re->f_offsetCld == ip-si_sizel) ¢ 
if(re-sfioffsetCijJ !'= 0) ¢£€ 
re->floffsetLigd = OF 
lre-siwsizel = OF 
if(irp-Si_modegIWRITE) < 
le-sicmode =& “IWRITEs 
Wakeur(Cipdtil) ¢ 
} 
> 


7X If there gre not both reader and 

K writer actives return without 

K satisfying read. 

x/ 

Prele(ir)s 

if€ir-Si_count <= 2) 

returns 

ip-Si_mode =i IREAL!s 

Sleer(irt2, FPRPIPE) 3 

soto loors 
} 
/*k Read and return 
x / 
UeuioffsetCod 
ureuioffsetlid 
readi(Cir); 
re->floffset£Lld = u.-uloffsetCilid> 
Freledir) 3 


OF 
re-sf_offsetlids 


Ho 
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FESO A mee re ee et ee ee ect et ee ne ane see at K/ 
7802 

7803 /X Write call directed to &@ rire. 
7804 %*/ 


7805 writer (fr) 

7806 

7807 resister Xrrey Kiry cs 

7808 

7809 re = fry 

7810 ie = re-oflinode; 

7BL1 Cc = Ueu_counts 

7812 loor? 

7813 4k If all dones return. 

7814 x/ 

7B15 Flock (ir) 3s 

7Bi6 ifte == O) ¢ 

7817 rrele dir)» 

7818 Weucount = OF 

7819 returny 

7820 | ae | 

7821 /* If there ere not both read and 
2822 KX write sides of the Fire actives 
7823 KX return error and signal too. 
7824 K/ 7 

7825 if€ire-Siccount < 2) ¢< 

7826 erele cir); 

7827 Useuerror = EFIPE; 

7828 Psidnmaldus.u_rrocrys SIGFIPE) s 
7829 returns 

7830 } 

7831 /*®* If the rire is fully 

7832 KX wait for reads to derlete 

7833 KX and truncate it. 

7834 K/ 

7835 ifCaip-Siv_sizel == FPIFSIZ) ¢< 
7836 ip->i_cmode =i IWRITEs 
7837 PreleCir) § 

7838 sSleer(Cirt+is FPPIFPE)s 
7839 soto loors 

7840 > ; | 

7841 /*% Write what is rossible and 
7842 KX loor hace. 

7843 xK/ 

7844 ueu_offset[O] = OO» 

7B45 ur~euioffsetCid = ir->i_sizel; 
7846 Uecount = minder FIPSIZ-u.u_offset£1I) 3 
7847 Cc F- Ueucounts 

7848 writei(iP)s 

7849 rrele dir)» 
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7850 if€irp->i_mode&IREAD) <¢ 

78351 ip-Si_mode =& “IREATL: 
7852 Wakeur Cirpt2) ¢ 

7853 + 

7854 goto loors 

7855 } 

FE LK rere rc re re cn ce wr cs we ers ne en cs en sn ts x/ 
7857 

7858 /X Lock @ Fire, 

7859 * If its already loctedy 

78460 * set the WANT bit and sleer. 
7841 Xs 

7862 Flock(ip?) 

7863 int Xkir; 

7864 ¢< 

78645 register Xrr; 

7866 

7867 Tre = ify 

7868 while(rre-si_flaszgILOCK) ¢€ 
7869 re-si_flagd =i IWANT»s 
7870 Sleer(rre,s PRPIPE) 5 
7871 x 

7872 re-Silfles =i ILOCKs 

7873 } | 
7B74 1K mem rm mmr rr mr nnn K/ 
7875 | 

7876 /X Unlock a Fire. 

7877 * If WANT bit is ony 

7878 * wakeur. 

7879 * This routine is also used 
7880 * to unlock inodes in general. 
7881 = x/ 

7882 rrele tir) 

7883 int Kir; 

7884 < 

7885 resister Xr; 

7886 

7887 re = ips 

7888 re--iifled =&% “ILOCKs 

7889 if(rp->i_flas&zIWANT>) 

7890 re-si_flasd =%& “IWANT>: 
7891 WoKeUrP CPR) 5 

7892 + 

7893 } 

7894 /® ese teket wii Wiss nace weve aan eee ina Sea oaks sd ieee Sua tae aims, Ce iis dune wan: cai Sen ts a/ 
7895 

7896 

7897 

7898 

7899 
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7900 /*X 

7701 kK A clist structure is the head 

7902 k* of a linked list aueue of characters. 

7703 *%’ The cheracters are stored in 4-word 

79O4 % blocks containing Link and 6 characters. 

7705 * The routines sete and frute (m45.s or m40.s) 

7906 *® manirulsate these structures. 

29QO7 = K/ 

7708 struct clist 

7909 £ 

FP1LO Lit Cue Fy /*% character count x/ 

Wie a Ws § int coo f ¥ /K Fointer to first block XK/ 
7912 int cuel sy “Kk Folinter to last pnlock x*/ 
FPLS 3 

FEI. FE ORS ee ee Se ee ae K/ 

7PLS 

PPLE 7X 

7717 *& A tty structure is meeded for 

P7718 * each UNIX character device that 

FRAP Kk as used for normal terminal IQ. 

2/920 & The routines im tty.c handle the 

7921 KX common code associated with 

7922 # these structures. 

7923 & The definition and device derendent 

77924 *® code is in each driver. (kl.c de.c dhec) 

PP2SG KS 

7926 Struct tty 

PPAF LX 

P7226 struct clist turawes /K input chars risht off device X/ 
7929 struct clist tucanes /K ineut chars after erase and kill x*/ 
7930 struct clist turoutes /K outrut List to device x/ 

7731 aint touflads 3 /* moder,y settable by stty call x/ 
77Se2 int Kt addr y 7X device address (resister or 

7933 : staertur fem) Ks 
7734 char toudelets /*¥ number of delimiters in raw a xK/ 
7735 cher tocol: “/k Frinting column of device x/ 
7936 cher tLuerase y /X* erase cheracter x/ 

7937 char tokills /*®& kill character x/ 

7938 char tLostate y /X internal statery not visinle 

7?PS? externally x/ 

77940 char tLoichars 7k character temrorary x/ 

7941 amt tsreedsy /* outruttingeut line sreed */ 

PP4a2 im t.deavs “kK device name x*/ 

PRas FF 

FDA PK mmr er ee te ee ene mee nae sate ate ate ante atte tee sete ce ste ie sansa ee sat et et ee *x/ 

7E4S 

P?4AS 

7747 char rartablCds /k ASCII table: rarity: character class X/ 
79748 

P PAY 
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7950 

7951 #define TTIFRI 10 

7952 #define TTOFRI 20 

7953 

79°34 #tdefine CERASE ‘’#/’ /xk default srecial cneracters xk/ 
7955 #¢define CEQT 004 

7956 tdefine CRKILL ‘a’ 

7937 tdefine CQUIT 034 /k FS» entl shift L xk/ 
7958 #define CINTR O177 /X DEL X/. 

7939 

7960 /K limits xX/ 

7961 #define TTHIWAT SO 

7762 #define TTLOWAT 30 

7943 tdefine TTYHOG 2564 

7964 

79463 /*& modes X/ 

7966 tdefine HUFCL Ol 

7967 *#define XTARS O02 

7968 #define LCASE 04 

7°69 #define ECHO 010 

7970 #tdefine CRMOL 020 

7971 #define RAW 040 

7972 #define Onve 0100 

7973 tdefine EVENF O200 

7974 tdefine NLIIELAY 001400 

7975 tdefine TEIELAY GO46000 

7976 #define CRIELAY 030000 

7977 #define VITIELAY 040000 

7978 

79°79 /* Hardware bits x/ 

7780 tdefine DONE 0200 

7981 #define TENABLE O100 

7982 

7983 /K Internal state bits x/ 

7984 tdefine TIMEQUT O1 7* Ylelay timeout im rrosress */ 
7985 #tdefine WOREN 02 “/*K Waiting for oren to 
7986 complete x/ 

7987 *$define ISOPEN 04 /* Ylevice 15 orem */ 
7°88 #define SSTART 010 /*® Hes srecial start routine 
79°89 at addr x/ 

7790 #tdefine CARR_ON 020 /*& Software cory of 
7P9L carrier-rresent */ 
7992 Adefine BUSY 040 7% OQuteut im frrosgress x/ 
7993 #tdefine ASLEEF 0100 /*& Wakeur whem outreut done */ 
7PP4 

7 PRS 

7P9S 

7997 

7993 

799? 
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8000 #¥ 

S001 /x KL/DL-1i driver x/ 

3002 #include "../rarameh" 

3003 £include "../conf.n" 

8004 #include "../user.hn® 

8005 #include ".-./ttyu.hn® 

98006 #include "../rroc.h" 

3007 /*% bese eddress X/ 

$008 #define KLAQDIR 0177560 /X console */ 
8009 #tdefine KLBEASE 0176500 /xX kl and dlili-a */ 
8010 #tdefine DLBASE O175610 7X dl-e x/ 
S011 #define NKLIil i 

8012 ¢define NOLIL 0 

8013 #define SRDY 02 

3014 #define RORENB Ol 

SO1S struct — tty KILICNKLIItNDLI1I» 

S016 struct klregss < 

SO17 int kKlresrs 

$018 imt klrbufs 

SO19 imt kltesrs 

8020 imt kltbufs 

SO21 7 

SRO LM meme rm crn re nr nee mr ca ee ca te a ee ee x/ 
8023 kloren(devys fla) 

$024 { resister char kKaddrs 

225 resister struct tty xAtes 

3026 if(dev.d_iminor == NKLILI+NDOL11) <¢ 

8027 Weuuerror = ENXIO; | 

3028 returng 

8029 > 

3O30 te = &k111Cdev.duminords 

3OS1 aif (ueulrprocr-sp_ttyr == 0) < 

3032 WUeUPPOCR (SPU ttyrp = tres 

O33 tre->tuidev = devs | 

3034 + 

9035 /*% set ur minor 0O to address KLARDR 
3036 Kk set up minor 1 thru NKLii-1l to eddress from KLBASE 
3O37 XxX set ur minor NKLIl on to address from DLBASE 
3038 xK/ 

8039 addr = KLADDIR + 8xdev.d_minorys 

8040 if (dev.doiminor) 

3041 addr =+ KLBASE-KLALIR-S» 

3042 if‘dev.eaiminor *= NKL1i1) 

3043 addr =+ DLBASE-KLBASE-S#*NKL1149¢ 
044 te->tladdr =- aeddrs 

8045 if ((tr-stistatesISOFEN) == 0) £€ . 
8046 te-stustete = ISOPEN! CARR_ON> 
3047 te-etuiflads = XTABS:LCASE: ECHO: CRMOLs 
8048 tr-stwerase = CERASES 

3O49 te-steukill = CKILLSs 
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BOS0 
8051 
BOS2 


—B053 


8054 
BOSS 


ONE L 
LI ad te 


8057 
8058 
BOS? 
8060 
B061 
BO062 
8063 
BO64 
8065 
BO466 
8067 
8068 
BO69 
8070 
8071 
8072 
8073 
8074 
BO75 


8076 


8077 
8078 
8079 
8080 
8081 
8082 
8083 
8084 
8085 


8086 | 
B087 


8088 
BOB? 
BO?0 
BO9l1 
BOP2 
8093 
GO?4 
BOSS 
8096 
8097 
8098 
BO99 
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+ 
addr--klresr =i I 
addr-skltesr =! IENABLE? 
} 
LK mr re cr rn re re cre ne rr ne ee me er ee co 


kKlclose(dev) 
t rpesicstar etruct thy Kthres 


A Lee ced obo wok WE Bee wae 


te = &h111Cdev.deuminorids 
wfhlushtty( te) ¢ 


te-=tustate = OF 
+ 
x Séasin ‘outa abba Gotayebed once guvdl pate, Gers sseu\ensi uch escas(Scas| gates “eaten jodbu! sas’ Sas So00/ose (Sean; tule 'eate ones 
kKlread(dev) 
{ ttread(ékliilCdev,.d_minord)s 
> 
LM me rr cre re cr cre ee ea ee crt te eno 
kKlwrite(dev) . 
{ ttwrite(&kliilCldev.d_minord) 3 
+ 
LM meer ee ee ee en ee ere 


kK1lxint (dev) 

{ rpestister struct tty xXtre3 
te = &k1l1iilofCdev.d_minord? 
ttstart (ted: 
if (tr-stloute.cice 4 

wakeup (&atr->tuoutea) § 


qnee vece 
seen case 


kKlrint(dev) 
{ resister int cs kaddr3 
resister struct tty xXtrs 


te = &kh111iCdev.d_minord$ 
addr = tr->tladdrys 
c = addr-sklrbuts 


addr->klresr =: RORENB: 
if ¢(¢¢€c&0177)==0) 
addr-skitouf = 


ttyinreutlcsy tres 


cy 


1X 

kKilssttutdevys 

int XKv3 

{ redister struct tty Ktes 
tr = &k1LLiCcdev.d_minord: 
ttusttylteps. v5 


Cond S000 SRES came GEES Seed SETS GOES FESS CORY 900 2500 wane ESAT Sons SEND CEES CRED GED SEES CERO eae SEO ete Cost 


Vv) 


Paty CeCe SOT SEOs FTES O2Ed GURY SETe ERAS BERS SHED BOD woee HOOD eee GuEe EES WEES Guns SESS 00s Cane etme mere Coes 
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ENABLE: DSRINY : RORENEs 


x/ 


x/ 


x / 


x/ 


Sesdianed 
eens ence 
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8100 # 
3101 


8102 #include 
3103 #include 
8104 #include 


8105 #include “../tty.h’ 

8106 #include ~e/Fraoceh® 

8107 #include "°../inode.h" 

8108 #include ",../file.h* 

S109 #tinclude °../resd.h" 

8110 #include “../conf.h’® 

Siid 

8112 /K Ineut maering table-- if an entry is mom-zeroy when the 
S113 * corresronding character is tyred rreceded hy 
S114 ** escare sequence is rerlaced by the tahle value. 
8115 %* Mostly used for urrer-case only terminals. 

Bi16 x*/ 

Sli? cher martabet J 

Bilis <¢ 

S119 000 20009000 +000%7004+00020002000% 

3120 000 2700047000 »000%0002700070007000» 

8121 000 ¥000%000#000700030002:0007000» 

8122 000 0005000 +0007000700070007000» 

Si23 0009140009 °#’% ¥O000s0007000» / * “x 

$124 “£79 7% 9 0007000300070003000%000% 

8125 000 9000200070002 000200030007000% 

S126 600¥00030007000+000270007000s000» 

8L27 “@’ 000»000+0002000%00030002000y 

8128 000 ¥0007000%000700030007000#000» 

S129 0009000 47000%700070007000700070003 

3130 000 ¥000 9000 7000%70002:0007'%% 9000» 

S131 000% %A% 7B’ 9’Cl 9 Dl’ sy “ES es °F % 9 7G? » 

8132 “Hey 4D % 9 oe CR oe CL OM’ ON’ 9 CO% 

8133 “Py QA! 9 fR9 G7 9 ST TU TV 9 OW? 

$134 “X49 TN % eo 42% 9000200070007 00070009 

Sil35 + 

SL36 SK meee re ee me ee eee x/ 

Si37 /X The actual structure of a clist block manirulated hy 
Sil38 *’ dete amd rute (mechs) 

S139 x/ 

S140 struct chlock ¢ 

ol4i struct chlock Xe _nextys 

3142 char infoléds 

Sil43 33 

S144: fk She See ee Se Se So *K / 

3145 /k The chaeracter lists-- space for 6*XNCLIST characters x/ 
$il46 struct cbhlock cfreeCNCLIST J: 

3147 

S148 /kK List head for unused character blocks. X/ 

S149 struct cbhlock xXefreelistys 
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8150 
8151 
8152 
8153 
8154 
Biss 
B1iS6 
8157 
8158 
Bis? 
8140 
81461 
8162 
B1463 
8164 
BLé6S 
8146 
8167 
8168 
BL469 
8170 
Bi7i 
8172 
8173 
Bi74 
B175 
8176 
8177 
8178 
8179 
B180 
8181 
8182 
8183 
8184 
B185 
81864 
8187 
8188 
8189 
8190 
8191 
B12 
B19S 
B1LP4 
B19S 
BL9S 
8197 
Bil9s 


B19? 


7* structure of device resisters for KL» DLs and OC 
xk interfaces-- more Farticularly, those for which the 
x SSTART bit is off and cam be treated by general routines 
x (that iss mot DH). 
x / 
struct <£ 
imt ttresrys 
int ttrbouf ys 
imt tttesrys 
int ttthufy 


/*& The routine imelementing the atty system call. 
* Just call lower level routine and rass back values, 
*/ 
stty() 
4: 
int vC3Is 
register Kurs Xvprg 


VP = Vy 

ssattyCvr) ¢ 

if (us.uLlerror) 

returrny 

ure = ursuiarslOds 

suword (urs, Kvebtt) yg 

suword(+tury Kyveth? ¢ 

suword(tturs Kvepett) y 
} 
[XK SASS eM Se Se See eee K/ 
“*& The routine imrelementing the stty system call. 
X Read in values and call lower level. 
K/ 
stty) 
{ 

resister int Kurs 


uF = ueularslody 
leilarsloOd fuword Cur) § 
UeuiarsfC17 fuword (++i) ¢ 
UeUwarsled fuword (++i) 
sa4ttyu 0) 


ou i 


} 
/&® ncn lnbsd  cises idcba can este "004s Gune'\0sbe pices, “intee sacs sims one tbe 'ceen’ sass 'adwe! Sead) ienbe) tees” ave (cane (Suse soys x / 
7* Stuff common to stty and stty. 
x Check lesality and switch out to individual 
Kk device routine, | 
* v is O for sttus the rarameters are taken from ue-u_aral id. 
KX c is nom-zero for stty and is the rlace in which the 
Kk device routines elace their information. 
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8200 


8201 


8202 
9203 
9204 
8205 
3206 
$207 
8208 
8209 
3210 
S211 
9212 
8213 
8214 


S215 


S216 


S217 
3218 
S219 
9220 
221 
e222 
B22 Y 
R224 
S225 
8226 
B227 
8228 
S229 
230 
S231 
S232 
832335 
8234 
8235 
236 
83237 
3238 
8259 
8240 
8241 
B242 
8243 
B244 
8245 
3246 
8247 
3248 
83249 
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May 


x/ 8250 
ssttyulyv) B251 
imt v3 8252 
£ 8253 

resister struct file x*frys 8254 
resister struct inode Kir; 82535 

if (frp = getflu.uclarOLRGJ)>) == NULL) 8256 
returns 8257 

ip = fr->fouinodes 8258 

if (Cir-Si_mode&IFMT) != IFCHR) ¢ 8259 
WUeltiierror = ENOTTYs 82460 

returns 8261 

} 8262 
(Xedevswlir-sicvaddrlCOd.doimaJjord].disstty) (ip-si_addrlOdsv) 48263 

+ 8264 
Fe I aa ad aca aca et a ea a xK/ | 8265 
“*& Weit for outrut to drains then. flush ineut waiting. */ 8266 
whlushtty (ate) ee a 8267 
struct tty Kates 8268 
C . : hy B259 
register struct tty Xtrs 8270 

tre = Batre 8271 
srl) s 8272 
while (tre-stloute.,cice) {€ | 8273 
te->tuistate =i ASLEEF Ss 8274 
sleer(Stre-stloutesy TTOFPRI)» 8275 

} 8276 
flushtty (te) 3 8277 
SE1LOC)s 8278 

} | 8279 
LM em a re a cs ct ce eee ene cece em a K/ | 8280 
4X Initialize clist bys freeing all character blockss & count 8281 

X mumber of character devices. (Onmce-only routine) 8282 

x/ 8283 
cinitd) 8284 
£ 8285 

resister int ccr? 8286 
redister struct cbhlock Xcrs 8287 
register struct cdevsw Xcdry3 8288 
cer = cfree3 8289 
for (cr=(ccertO7)&°%O73 cr <= &cfreeCTNCLIST-1lls cett) £€ 8290 
Crm ro_next = cfreelist; B291 

efreelist = cPr3 8292 

} 8293 
ccr = O% 8294 
for(cde = cdevsws cdre-rd_crens cdrtt) 8295 
certts B296 

nehrdev = cers 8297 

} 8298 
7 i aaa el aa x/ B299 
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/* flush all TTY aqueues 
x/ 
flushttylater) 
struct tty Kate; 
{ 
resister struct tty Xktrs 
resister int srs} 
te = atrs 
While (setc(&tr-Stucana) += 
while (detceC&tr-stioute) = 
Waekeur (&tr-eturawa) » 
Wakeup (&atre-> toute) ¥ 
srs = PO-tintess 
sPlSC)s 
while (detc(&tr-Sturawa) = 
tre-S>tidelet = 03 
FS-sintes = srs; 


Od» 


PM Se Ba oe le a a ge eee ea eae x/ 
/*& transfer raw inreut list to canonical list» 
K doing erase-kill rFrocessing and handling escares. 


K It waits until @ full line has been tyred in cooked modey 


* or until any character has heen tyred in raw mode. 


canonCate) 
struct tty Kates 


{ 
resister char Xbrys 
char x*bril; 
resister struct tty Xters 
resister int cy 
te = atry 
sePl50)35 
While (tr-stuidelct==0) <€ 
if ((trp->t_state &CARR_ON) ==0) 
returnm(Q) ¥ 
sleer (&tr-st_rawes TTIPRI): 
} 
sP1lO()3 
loor? 
be = &csanonbC2]3 


While ((c=sgetc(&tr-st_rawe)) >= 0) ¢ 
if (c==0377) ¢< 
| tre-etoidelct--3 
bresk + 
} 
if ((te-st_flasssgRAW)==0) 
if (bef-1]!=“NN‘4) < 
if (c==tp->t_erase) ¢ 
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8300 if (be > éeécanonnC2ed>) 8350 flushtty(te) » 
S301 peo 9 8351 returns 
3302 comtinues B352 + 
8303 > 8353 if (tu-flass&LCASE &% ch=’A’ && ci=’Z’) 
3204 if (c==te-etlkill) 8354 qc =+ ’a’~-“A’s 
3305 goto loor; 8355 Plutedcy &tr-sturawe) » 
3306 if ¢c==CEOT) 8356 if (t_flass&RAW ff c=="’\rn‘% ft c==004) 
83407 continue y 8357 Wakeur (C&tro- sti rawa) s 
3308 + else 83358 if Ceute(O377» &tr-st_rawa)==0) 
3309 Lf (maetabfe] &&8 (martaebCoJ==c tt (treestuflass&8LCASE))) «< 8359 te-stuidelcttts 
3310 if (be f-2Oy t= “\NT) 8340 + 
S311. Cc = marteblicds 8361 if (tuflasas&sECHO) <€ 
S312 Deo 8362 ttyouteutdey teddy 
S513 } : 8363 ttistartdtre)s 
3314 } 83464 > 
S415 Kobptt = cy 8365 } 
3316 if (hres=canonbt+CANRSIZ) BS6G Je Saree See eee ee x/ 
S317 hnreaks 8367 /K Put character on TTY outeut aueues adding delays,» 
3318 + 8368 WK expanding tabss and handling the CR/NL bit. 
ssi? ped os Dp gy 8349 -' It is called both from the tor hself for outreutes and from 
320 be = Scanonbl2 + 8370 * interrurt level for echoing. 
ss21 Cc = &tre-sboucanes 8371 kk The arguments are the cheracter and the tty structure. 
3322 while (Checine dl > 8372 */ 
3323 elute (kbetts cds 8373 ttyoutrutlCacs tr) 
3324 return¢(1 2+ 8374 struct tty Ktrys 
S25 3 : 8375 £ 
USeO0 h. Pe Se  e S x / B375 register int c# 
S327 /K Flace a cheraecter on raw TTY ineut aueues rutting in 8377 resister struct tty Krtes 
3328 % delimiters and waking ur tor helf as meeded. 8378 register cher XKcolrs 
SA29 KK Also echo if reauired, 8379 imt ctype y 
$330 MK The arguments are the character and the arrrorriate 8380 
S331 % tty structure. 8381 rte = try 
S332 KS | | — $382 c = ackOl773 
8333 ttyineutlacy atr) 8383 7X Ignore EOT in normal mode to avoid hansing ur 
$334 struct tty Kates 8384 KX certain terminals. 
S335 € 8385 *x/ 
S336 resister int tiflads, c# 8386 if (c=:004 && (rtre-stuflass&RAW) ==0) 
S237 resister struct tty Xtrs 8387 returns 
S348 8388 “/* Turn tebs to spaces 85 reauired 
B4a5° te = Batre? 838° xK/ 
33340 c= acy 8390 if Ces=/Nt!% 28 rtreestuflass&xTARS>) <¢ 
3.44 1. Lfless = teestuflagss B39 1 doa 
S42 if (Ce =% O177) == ‘\r’ && tiflasssCRMOD) 8392 thyoutrut¢’ “9s rtrd: 
S343 cos “Nim ¥ 8393 While (rtre->ticol 807) 35 
3344 if (Ctl flass&aRAW)==0 €@& (c==CQUIT 11 ec==CINTRI) £ B394 returns 
3345 Ssidnmal¢trey c==CINTR? SIGINT{SIGOQIT> s B39S } 
3346 fFlushttys (tr) 3 B36 7% for urrer-case-onlys terminalss 
3347 returrmy 8397 xX senerate escaeres. 
3348 } B398 K/ 
3349 if (tee? touraweecuieces=TTYHOG) + B399 if (rte-stuflassélLCASeE) < 
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cole = "CH RITTY IS TS 
while(xcolrt+) | 
iffe == kcolrt¢t) £ 
ttyouteut¢’NN’, rtreds 
ec = colreC-213 


break» 
+ 
if (’a’s=se 8% et=’%2%) 
c sx +f “AS eats! ‘o's 
+ 
“kK turn <nl> to “ersclf> if desired. 
x/ 


if (c==‘"\n’ && rtp-stoflads&CRMOD) 
ttyoutreut¢’N\r’s rte 
if (Crutedecy &rtr-stuloute) ) 
- returns 

/%& Calculate delays. 

* The. Numbers. here: represent: Clock ticks 

x and. are mot. necessarily ortimal for all conmiawle: 
* The delays are: indicated by characters above 0200,» 


Ok thus (unfortunately) restricting the transmission 


X rath to 7 bits. 


x/ | | 
cole = &rtrer-stucol 
ctyre = rartabCecl: 
c = OF . 


switch Ceturpeg077) £ 
/* ordinary */ 


case Of 
(XcolF) tts 
7k non-rrinting */ 
case 1: 
break s 
/* backsrace x/ 
case 23 
if (XcolF) 
(Kcolp)--3 
bresk» 
/*& newline x/ 
case 3? 
ctyre = (rtre-stiflags >> 8) & O33 
if(ctyre == 1) < /x tty 37 X/ 
if (Xcolp) . 
c = max ((xXcolps:4) + 3» &)3 
+ else . 
if(ctyre == 2) € /Kk vtO5 x/ 
c= 63 
} 
Kcolre = Q3 
bresks 


ty Je Lionss 1976 
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8450 4% tab */ 


8451 case 43 

8452 ctype = (rtre-stufleds => 10) & O33 
8453 iff(etyre == 1) € /k tty 37 k/ 
8454 ec = 1 - ¢(kcolp i “O7)+3 
8455 tf CC <5) 

8456 c = OF 

8457 } 

8458 Kcolre =i O73 

8459 (Kcolr)+t35 

8460 breaks 

B46i /* vertical motion x*/ 

8462 case 3S? 

8463 if (rtre-st_iflaas & VTTELAY) /x* tty 37 x/ 
84464 c = O1773 

8465 hreak. » 

8466 /* carriage return x*/ 

84467 case 63 

8468 . ctyure = (rtre-stiflags +> 12) & O33 
8469 if(etyre == 1) £ /k tr 300 X/ 
8470 c= Se 

8471 + else 

8472 if(ctyrpe == 2) { /*xX ti 700 X/ 
8473 c= 105 

8474 re 

8473 Kcolr = Os 

8476 + 

8477 if(c) 

8478 Pute(ei0O2007 &rtre->t_outa) 5 

8479 } © 

B4B80 /K mmm rm re mm mmm rn nr K/ 


8481 /xX Restart typewriter outrut following a delay 

8482 xk timeout. 

8483 '’ The name of the routine is rassed to the timeout 

8484 *k subroutine and it is called during a clock inmterrurt. 
8485 x/ 

8486 ttrstrt(stp) 

8487 ¢<¢ 

8488 register struct tty Ktrs 

8489 

8490 tre = atrs 

8491 tr-stustate =&% “TIMEOUT: 

8492 ttstart (tr); 

8493 } 

S494 [KK mmr re me me rr enn x / 

8495 /K Start outrut om the tyurewriter. It is used from the top 
8496 *k half after some characters have been Put on the outrut 
8497 *k queuery from the interrupt routine to transmit the next 
8498 kk characters and after a timeout has finished. 

8499 *‘* If the SSTART bit is off for the tty the work is done 
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S09 
S510 
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512 
S13 
5 l4 
S515 
S516 
B17 
S518 
Ps a Me 
BILG 
321 
2 2 
5 Be Pa 
soy 24 
B25 
AS a eo) 
3527 
35228 
B29 
S30 
3 iL 


3 2 | 


ro Br Bt 
B34 
35.55 
SIS5 
S337 
33.58 
39 
B40 
B54 1 
542 
B45 
44 
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8346 
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; nerer using the fFrotocol of the sinsdle-line interfaces 


x 
K Ckhiy dls deods otherwise the address word of the tty 
x 


structure is teken to ne the name of the device-derendent 


3€ 


K start-us routine. 

* 

ttstartlate) 

struct tty Keates 

£ 

resister int Kaddr» cy 
resister struct tty Xktrys 
struct < amt CKfuricd Cis Fs 


te = atry 
addr = tr-stiaddrs 
if (tre-stustate&SSTART) < 
(X3addr.fumc) Ctr) 3s 
returns 
+ 
if (¢Caddr-stttesraQNONEJ==0 fio tre-stustate&TIMEOUT) 
return 
if (Ce=setcC&te-Stlgqute)) == 0) 
if ¢(ex=O177) 
addr-stttbuf = ec ft Crartablce]&’0200)3 
else < 
timeoutdCttrstrts tee c&Ol77)3 
te-etuistate =! TIMEOUTS: 


te 


} 


/X ‘cont iemos Soass' bute-icvwd “hott eeice “pat stabi ceies''cia] Kase  Goen "ebss abba obce, eae geosl eae” cae’ weed cess woue. eouer base K/ 

/* Called from device’s read routine after it has 

KX calculated the tty-structure sdiven as arsumerit. 

xX The re 1s backed ur for the duration of this call, 

Kk In case of 8 Causht interrurets, em RTI will re-execute,. 
K/ 

ttread (ater) 

struct tty Kater; 


A 

resister struct tty Xtr?e 

te = ater; 

if ((te-Steustate&aCARR.WON) ==0) 

retiurny 
Lf (tr-sticamea-+cice 1: canon(tr)) 
While (te-Ptlcameecice &%& rasse (sete Strenstoucana))e=O) 3 

+ 
iM caus Gsu> \Gubs bene aden, Woes ocad Sune: aks. wean’ toon ‘aces S'eb0" Gees deed: boca: eabs, Sees: cute “seus! Gute ated “sued: stee ‘eoee K/ 


/*k Called from the device’s write routine after it hes 
* calculated the tty-structure sSgiven as arsdument,. 
* f 
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8550 ttwritelatr) 
8551 struct tty Katrys 


Sog2 “4 

B553 register struct tty Ktry 

8554 register int cs 

BSSS te = atry 

8556 1f ((tre-stustate &CARR_ON) ==0) 

8357 returns 

BIS8 While ((e=crass())2=0) € 

B359 SP1IS5 0) 3 

83460 While (tre-Stloute.cice = TTHIWAT) < 
B56 1 ttistart(tr)s 

8562 tre-stuistate =i ASLEEFs 

8363 sleerCate-stuloutes TTORRI) » 
8344 } 

83455 SrLlLOC)s 

82366 ttyoutrutlecs tres 

8367 } 

82368 tLtstart (be) ¥ 

B3569 } 

8570 /* feiss Tacos! sonss: Saas: saan ienes\enan Tsa0s\ bckal ends ance esi /oasd Tevbsieade! abeaivesks. Suse. cube ben''Géas as0s- deen: Sebi dice *K/ 


8571 /*X Common code for stty and stty functions on tyrewriters. 
8572 * If v is nom-zero then sgtty is beings done and information 


8573 MK is rassed hack thereins 


8574 * if it 15 zero stty is beings done and the imreut inform, 


8575 ** ation is im the uLars arrays. 
8376 K/ 

8577 tbhyusttylatry av) 

8378 imt Kates Kavy 


8579 <€ 

BSB80 redister XXtrr Kv 

S581 te = atrs 

8382 if(v = av) ¢€ 

8583 KV¢tt = tree-otoisreeds 3 
B5S4 Ve lobute = tre-stlerases 
BSBs VerhAibyte = tre->tlkilly 
8386 VELI = tre->tuflagss 
8387 returnmcd > § 

8588 + 

8389 Whlushtty (te) ¢ 

B3aPO V = Useuuarss 

BS91 te->rtosreeds = Kyvtt 

BS92 te-stlerase = vo-slobytes 

BaPs trees tlkill = veohibyte: 

B54 te-stuiflass = vOld3 

SSeS returnms€O) ¢ 

BS9G } 

BFL mr re mr re mrt ce ere cre cee re ne nese ete ee een an a *K/ 
Ba98 

BS9S 
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unmix/rPe.c Fage 1 
if | 
/*& FPC-11 Perer tare reader/reunch driver */ 


#include "../rsaramen" 
#include "../conf.h* 
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B450 
84651 
84652 
8653 
8654 
Bé655 
R454 
8657 
8658 
84659 


extern 1 


if (fled 


6 wunix/pe.c Page 2 


holts 


==0) 


if (pcell.rcstate!=CLOSED) ¢< 
Ueliierror = ENXIOs 


returns 
>. 


Pcii.recstate = WAITING: 


while(reeclil.ecstate==WAITING) ¢ 


FCADIIR-Srercsr 


won 
oowe 


TENABLE ; ROURENBs 


8660 
8461 
84662 
8663 
84664 


8665 


84666 } 
8467 /*x 
8468 
8669 Pee 
8670 <£ 


8671 


8672 


} 
+ else ¢ 


sleer(&lbolts FCIPRI)s; 


FCADDR—-srecreesr =: ITENABLEs 
PCleader()3 


Oven O6bs Cows mene bene CbeS CEES SETS EET enue CCR cuss Sete SEES C000 CeCe 


lose(devy, flag) 


if (fles==0) ¢<€ 
sP1l4(¢)35 


mannan x/ 


#inmelude "../users.h" 
#define FCADDR O177550 
define CLOSE 0 
#tdefine WAITING 1 
#derine READING 2 
tjefine EOF 3 
#define RORENE O1 
define IENABLE 0100 
tdefine TONE ' 0200. 
tdefine BUSY 04000 
#define ERROR 0100000 
#define PCIFRI 30 
#tdefine FCOFRI 40 
define FCOLWAT So 
#define. FCOHWAT 100 
tdefine FCIHWAT 250 


8673 
B&74 
B475 


while (getc(&rcll.rpcin?) 
FPCADDR-Seeresr = OF 
Pcil.pcstate = CLOSED: 


we ODF 


S424 struct 


8627 int reresrs 

$428 int rFerbufs 

84629 int rPercsrs 

3h30 imt rcrnufts 

S631 73 

B6S2 LK mmr rr te x/ 
3433 

3434 struct clist <€ 

3435 int cc; 

$636 int cf; 

3437 int cls; 

3538 73 

S699 [KK wer rr rm mr rr nn x/ 
3440 


8641 struct rclil ¢ 
3642 int Festate; 


$443 struct clist rPecinys 

83444 struct clist rcout?; 

8645 3} pclls 

S646. /*® He-Ne eee ee ees x/ 
3647 | « 
3448 rPcoren(devy flad) 

8649 < 
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84676 
8677 
8678 
8479 } 
B480 /X 
8681 
8682 Per 
84683 { 
8684 
8685 
8686 
8687 
84688 
Bé89 
BS690 
BS? 1 
B692 
B&93 
B494 
B495 
84696 aout 
B697 
8469S 
B699 /X 


SPIO)» 


rcleader() 3 


ead) 
resister int cs 


sp1l4¢)3 
do <¢ 


aa x/ 


while (¢(c = getc(Spcll.rcind) «< 0) £€ 


+ 


if (eclil.eestate==E0F ) 
gota out? 
if (CPCADIIR-SreercesréCERROR: BUSY i DONE) )==0) 
FCADDR-srpcresr =! TENABLE | RORENB: 
Sleer(&pcli.rcins FCIFPRI)> 


+ while (rassc(c)>=0) 5 


¢ 
e 


SsP1LOC) >» 


qece wets cece Geer cone que coaD euve ao=D ome ame gue qune Some enue weer 


—a anne x/ 
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8713 
a714 
8715 
37146 
3717 
8718 
8719 
3720 
3721 


B72 


f ba be 
3723 
7 24 
87/25 
3726 
3727 
83728 
729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
$738 
3/39 
3740 
S741 
$742 
3743 
3/744 
87435 
$746 
3747 
37483 
g7AS 
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rewrite) 
{ 
register int cs 
while ((€c=crass() )2=0) 
Fcoutrut(ce); 
} 
TM cr re rn es ee ee ce ce me cn ar x/ 
restart) 
£ 
register int cys 
if (PCADDIR-secresr&aDONE && (ec = getc(&rcli-.rcout)) == 
PCADDIR-Secrbuf = cy 
} 
TD mer mre cr ne me cr re ce ce a ae as a ce mc eee x/ 
rerimt() 
{ 
if (rcll.recstate==WAITING) < 
if (FCADDR-secresr&gERROR) 
returns 
rcell.pcstate = READING: 
} 
if (pell.rcstate==READING) < 
-if CPCADDR-Srecresr&ERROR) 
rcli.rcstate = EOF? 
else ¢<{ 
Putce (PCALDDIR-Secrbufy Secll.ecin) » 
if Ceell-srcin-ece < PCTHWAT) 
FCADIR-seeresr =i IENABLE | RIIRENEB» 
+ 
wakeur (Sepcli.rcim) § 
} 
} 
7p iicetentetentetententeneatententetentententemtenntetetentententae x/ . 
rer int) 
t 
restart ¢)3 
if (rclil.recout.ce <= FCOLWAT) 
wakeur(&rcll.rcout) 3 
} 
TH momen om ce coe en ence ent sas ene cen se a ean et ae ee sn a te so x/ 
reoutreutde) 
{ 
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if (FPCADUR-srcrcsr&aERROR) 


ueu_error = EIOs; 
returns 

+ 

if (pell-.rpcout.ce == FCOHWAT) 


sleer(&rcll.rcouts FCOPRI)s 


Pute(cy &pcli-rcout)s 
SrFl4a¢)ys 
restart d); 


sP1lOC)s 


sa ana ssc ant et ma a se a a x / 
rcleader() 

{ 

register imt 1» 


i = 100; 
do 

PCOouUtrPUt CO)» 
while (--i)s 


* / 


Sree cous sree ENTS Sent SEES CUES GREE SOR eUES BETS CEES SEY GEE CUED ENTE OFEE COTS CHOE ERED EEES SeTD SUED Ome soso 
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8800 # | 8850 lreroren(devs fleas) 

S3S01 /x | 885i <« 

39302 */ | 8852 

3803 8853 if(leli.fles & OFEN {i LFPADDR-slpsr =< 0) € 
S304 /*  ~=©8854 Ueulerror = EILOs 

8805 * LF-1il Line rrinter driver 8ss5 returns 

S806 */ | 3856 + 

3307 8857 leli.flaes =i CINDIEJECTIOFPEN) 5 
3808 #include "../raram.h* . 8858s LFPADTIR-slesr =! IENABLEs 

$809 include °../conf-.h" 8859 lecanon( FORM) § 

$810 #include "../user.h* S860 } 

Ssii BSBE6L [KR mmr rm rrr err ee “/ 
3812 #define LFAIMIR 0177514 8842 

3813 8863 leclose(devy flag) 

3914 #¢define IENABLE 0100 _ 8864 ¢ : 

3815 #define NONE 0200 : 8865 lecanon( FORM) ¢ 

S316 | e. : 8866 leli.fled = O8 

8817 #tdefine LFPRI 10 | Mee 3 - 8867 + © | 

8818 #define  LFLWAT: 50 | gy 8868 /K mene nnn ee eee */ 
3319 #define LFHWAT 100 : 8869 

3920 #define EJLINE 60 | | 8870 lrpwrite() 

8321 ¢define MAXCOL 80 | | 887i < 

So 22 — B872 register int ec} 

3923 struct ¢ 8873 

38324 int lesrs | | 8874 j.while ((e=crass())>=0) 

3825 int lebufs - ; . 8875 lrcanon(c) » 

3B26 | _ 8876 7 

8627 ff 8 See ete K eS ee eee eee x/ 1 2 BE77 /K mmm mmr re rr rece x/ 
$828 . | | | : 8878 

8829 struct | | 8879 Llecanon(c) 

B30 init ees | 8880 £ 

3331 int ef; 8881 resister cls c2s; 

So 32 int cl; , | 8882 

$933 int flags 8883 ci = cs 

3034 imt — mec y 8884 if(leliil.,flas&CAF) < 

3835 int ececy 8885 ; iffcls=’a’ && cla=’2’) 
3836 int mies | 8886 cl =+ ‘A’-’a’s else 
33837 + leiis . 8887 sWwitch(cl) <€ 

SSC: fR. See Sere eS SSeS See eee x/ 8888 

3839 | 8889 case ‘{7%3 

3840 #tdefine CAF | O1 /xk Set to O for 9%4é-char rrintery 8890 c2 = ’(%; 

83841 | 7 else to O01 X/ — B891 Soto escy 

$842 #define EJECT 02 8892 

38343 é#define OFEN 04 . 3 8893 case ’}7’3 

3844 #define IND O10 /k Set to O for no indent,» 8894 c2 = ')%3 

3845 . else to 010 x/ 8895 Soto esc? 

3946 7 8896 

3847 tdefine FORM 014 : y 4 8897 case ’*’3 

3848 | 8898 e2 = INOS 

8849 8899 soto esc? 
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8900 8950 ifCleli.cee = Lleli.emee)d ¢ 
SOO case 717% B9S1 lroutrut¢’\r’)y 
PO c2 = “lfy S952 leil.mce = OF 

SPOS | goto escys 8953 > 

327 O4 8954 if(lrediil.cece = MAXCOL? < 
SPOS case “"*3 8955 whileClelil.cec = Llelil.meed 
32706 ee = 74s 8956 lreouteut¢’ “73 
39OQO7 SPS7 lelil.mecttys 
BI9O8 esc; 8938 > 

SPO? lecanon(e2) $ 8959 lLeoutrutccl>s 

SP LO Lelig cory 87450 leii.meetts 

Sei cl = ’-%; BPs51 } 

oP 12 > 8962 lell.cectts 

S913 + B963 } 

3714 8°44 } : 

S71s SWwitch(cl) <€ BIE 1K mmm mm K/ 
SOLS 8956 

S917 cease “\t's 8967 lrestartd) 

83915 leli.ecce = Clelil.cect8) & “7; 87458 <€ 

i Ba returris B9SF9 register int cy 

P20 B97G 

B92 1 case FORM: 8971 While (LFADDR-slesr&DONE && (ec = sgete(&lelid) == 6) 
P22 case “\m'3 8972 LFAQITR-Slebuf = cs 

SP23 if (Cleili.flas#sEJECT) == 0 fT: S973 } 

HP 24 Leliemee!=0 [i Llreil.emle!l=0) < S974. 7 KL SASS eee eS SSS See See eS x / 
BOIS leli.mee = OF 8975 

OLS Lelisemletts | S976 leintd) 

3927 ifGleli.mle == EJLINE @& leli.flasszEJECT) 8977 < 

3923 cl = FORM; - 8978 register int cy 

aP29D Lrouteut¢elds 8979 

P30 iffcel == FORM) 8980 lestart¢)3 

SPS 1 leli.mle = QO; | 878i if (leli.ce == LPLWAT [i dell.ce == GQ) 
3932 >} 8982 walkeurCSleili) + 

O33 8933 } 

3-4 case ‘Nr’ 3 SPB 4 LK rrr ee en tn te ee oe rr een re ee crt sre cae ee en an coe x / 
39 3S leli.ecece = OF B98 

BP3S ifCleli.flas&INng) B9356 Llrouteut(c) 

3937 lelil.-ece = 83 8°87 <€ 

3933 returns 8983S if (lrelil-eece *= LFHWAT) 

SP3P 68?89 Sleer(C&lelis LFFRI)D 3 

3940 case O103 BP?O rutedes &lelilds 

3941. ifGleii.eee = 0) 8991 SP1L4C)5 

S742 Leli.cee--3 B8F°2 Lestarto) § 

3943 return? 8993 se loc); 

3944 S?94 } 

3} 945 Case / , : SSF5 /™ ics ess nenbe: etce Wess (bad iecin'iests jbains) bees ieebe  Guad- Vad Soo ves Toeas aebsi oes “osee so00 bass Voosn:lenee Wen jee K/ 
oP 4d leil.ceetty BF9S 

3947 returry | 8997 

3748 | 8399S 

SP49 default; BOF> 
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9000 # | 9030 Usuhase =+ cy 

POOL /X POS1 dradd(u.eu_offsets, co) 

7002 x/ 90352 returns 

9003 9053 } 

9004 /xX : 9054 fords) £ 

7005 *’ Memory srecial file 9035 bm = lshifttueu_offsety -6)3 
7006 #® minor device 0 is Fhysicel menors 9036 om = u.uLloffsetlid & O77: 
9007 xk minor device 1 is kernel memory 9057 if ((c=crass())<0 [i useulerror!=0) 
9008 xk minor device 2 is EOF/RATHOLE 90358 an: break 

2009 X/ 905° a = UISA-=rlCOls 

POLO . 9060 d = UISIIN-%rCloOds 

9011 #include °*../raramen*® 9O61 sr 17 ¢)5 

2012 tinclude "../user.h" : 9062 UISA-2>rCO]J = ons 

2O13 #£include ".,./conf.h" 9063 UIS0I-=rCO] = O7 740463 

O14 #include "../sed.h" 9064 if(dev.dminor == 1) . 
2015 7 9065 UISA--rCOT = (kaé-6)-2r0 (bne27) 8073 
7O16 mmread( dev) 9066 + Cbm & O177)35 
POL7 £ 9067 suibyte Cony c)s 

7018 resister cy bnms ons | | 9068 UISA-=rlOl = a3 

POLY int ay di | 9069 UISI-=rfCOl] = ds 

7020 : ~ 9070 sr lOc): 

7021 if(deyv.diminor == 2) 9071 } 

2022 return , 9072 } 

9023 do <¢€ 7 9073. (Kk SSeS] SS 63 SS 4 SSS eee */ 
7024 Orn = LlshifttCu-u_offsets —-6)35 - 9074 

P0295 on = us.uoffsetClj] & O773 9073 

9026 a = UISA-=rCO7% 9076 

PO27 d = UIS0-srCOI3 - : 9077 

7028 sP17()35 | 9078 

9029 UISA->rCOJ = brig | | 9079 

7030 UIS0I->rCO] = 0774063 | | 9080 

JOSI1 if(dev.diminor == 1) 9081 

2032 UISA-srCO7 = (€kaé—-6)—-2r€ (Cbne27) 8077 9082 

7033 + (om & O177)3 9083 

2034 c = fuibytelon): b 7084 

PO3S UISA-=rCO] = 33 9085 

7036 UISU->rloOd = d3 9086 

2037 selO()s 9087 

27038 + while (u.,u_error==0 &% rasse(ce):=0) 5 ° 9088 

9039 |} 9089 

9040 /& ------------- = - x/ 9090 

9041 | 9091 

7042 mmwrite (dev) 9092 

9043 <£ 9093 

2O44 register cy, Ons: on? | 9094 

9045 imt ays ds 3 9093 

9046 | 9096 

9047 if(dev.ediminor == 2) <¢ | 9097 

7048 c = Weu_counts ; 9098 

POAS Uelcounmt = OF | 9099 
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